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LASER  TRANSMISSOMETER 
SYSTEM  SPECIFICATIONS 


Optical  Head  Configuration 
Data  Processing  System 
Meteorological  Monitors 

Measurement  wavelengths 

Laser  Sources 

Water  Cooling  Requirements 

Measurement  Range 
Modulation  Frequency 

Signal  Detectors;  6  Total 
(1  each  at  transmitter  & 
Receiver  Temperature  Con¬ 
trolled  at  4  0°C) 

Demodulator  Reference  Source 

Signal  Channel  Time  Constant 

System  Radiometric  Sensitivity 
S/N  (2.0Km,  1  sec  integration) 


Double  Ended,  Separate  Transmitter 
and  Receiver 

Based  on  HP9825A  programmable 
desk  top  calculator 

Climet  #015 
Climet  #502 
Climet  #016-43 
Climet  #011-28 
Climet  #012-6C 
Belfort  #5-405HA 
Belfort  #6069A 

0.6328pm,  HeNe  laser 
1.06pm,  Nd: YAG  laser 
10.6pm,  C02  laser 

He-rNe  -  Hughes  #3221 

Nd-YAG  -  General  Photonics  #2-10 

C02  -  GTE  Sylvania  #941-P 

Single  closed- loop  water  cooler 
General  Photonics  #400 

0.1  -  2.0  km 

1200  Hz  Nominal,  Laser  Precision 
CTX534  Variable  Speed  Chopper 


He-Ne  Transmitter 

1  sec  (fixed)  and  1  msec  (fixed) , 
selectable . 

4 

S/N  > 1x10  all  signal  channels 


Temperature 

Pressure 

Relative  Humidity 
Wind  Speed 
Wind  Direction 
Rain  Gauge 
Rate  of  Rainfall 


0.6328pm,  Silicon  PIN 
1.06pm,  Silicon  PIN 
10.6pm,  LiTaC>3  Pyroelectric 
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LASER  TRANSMISSOMETER  (Cont'd.) 


SYSTEM  SPECIFICATIONS 


Gain  Range 

Transmitter  Aperture  (f/13.33) 
Transmitter  Throughput 

Transmitter  Monitor  Aperture 
Receiver  Aperture  (F/5) 
Receiver  F.O.V. 

Receiver  Sighting 

Data  Processing  System 
Data  Input  Channel 

A/D  Converter 

A/D  Input  Voltage  Range 

Scan  Rate 

Digital  Signal  Integration 

Time  Delay  between  channel 
to  channel  sampling 

Data  Output 
Tape  Capacity 


Three  receiver  channels  have 
2  gain  states  (front  panel  & 
calculator  controlled) 

15cm.  dia. 

0. 6328pm,  4.14xl0-^cm^  ster 
1.06ym,  9.87xl0“®cm2  ster 

10.6ym,  1.58xl0“6cm2  ster 

'  2 
0.6  cm 

50cm.  dia. 

2mr  full  angle 

Reflex,  with  reticle 

6  Detector  outputs 

7  Meteorological  Sensor  Outputs 

12  bits 
±10  volts 
2  sec.  Fixed 

Selectable  2,3,4,  etc. /scans 
0.01  sec,  nominal 

Digital  Tape  Cassette 
Printer/Plotter 

'•3400  Scans 
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LASER  TRANSMISSOMETER  (Cont'd.) 


SYSTEM  SPECIFICATIONS 


Printer  Output  Format 

I 

Data  Output  Base 


Miscellaneous  Specifications 
Power 

Receiver  Environment 
Transmitter  Environment 
Electronics  Chassis 
Transmission  cable  length 


3  transmission  plots  versus  time. 
Numerical  value  of  transmission 
versus  time  plus  7  meteorological 
sensor  outputs  and  the  absolute 
time  will  be  output  in  tabular 
format  adjacent  to  the  trans¬ 
mission  plots. 

Calculator  determined;  based  on 
digital  integration  interval. 


100V,  20A,  60  Hz 
-20°C  to  +40°C 
+15°C  to  +30°C 
19"  rack  mount 
2000  m 
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GENERAL 


The  laser  transmissometer  described  herein  has  been  built 
for  making  continuous  precision  atmospheric  transmission  measure¬ 
ments  at  three  laser  wavelengths  over  an  extended  period  of  time 


'fr- 


This  manual  should  be  thouroghly  read  before  any  attempt  is 
made  to  operate  the  system. 


1.1  EQUIPMENT  SUPPLIED 

The  complete  system  may  be  divided  into  five  sections  each 
section  consisting  of  the  following  equipment. 

1.  Desk  Console 

a.  Hewlett-Packard  9825A 

b.  H-P  Multiprogrammer  6940-B 

c.  H-P  Printer  9871-A 

d.  Laser  Transmissometer  Controller 

e.  Climet  Translator  060 

f.  GTE  Sylvania  C02  Laser  Power  Supply  Model  941P 

g.  General  Photonic  Closed  Loop  Water  Cooler 
Model-400 . 
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2.  Transmitter  Optical  Head 

a.  0.6328pm  laser 

b.  1 . 06 pm  laser 

c.  10.6ym  laser 

d.  3  reference  detectors  with  preamplifiers 

e.  chopper  assembly 

f.  Transmitter  optics. 

3.  Receiver  Optical  Head 

a.  3  receiver  detectors  with  preamplifiers 

b.  Receiver  optics 

4.  2000  meters  of  interconnecting  cable. 

5.  Meteorological  Equipment 

a.  Climet  Wind  Speed  Transmitter,  Model  Oil- 28 

b.  Climet  Wind  Direction  Transmitter,  Model  0126C 

c.  Climet  Temperature  Sensor,  Model  015-3 

e.  Climet  Pressure  Transducer,  Model  502 

f.  MRI  Tipping  Bucket  Re  ingauge.  Model  302 

g.  Motor  Aspirated  Temperatures  and  Dewpoint 
Shield,  Model 

h. 

i.  All  necessary  interconnecting  cables. 

1.2  INSPECTION 

Carefully  examine  all  equipment  for  possible  damage  which  may 
have  occured  during  transit.  If  any  damage  is  observed,  refer  to 
instructions  below. 
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1.3  CLAIM  FOR  DAMAGE  IN  SHIPPING 


The  instrument  should  be  visually  inspected  and  tested  for 
proper  operation  as  soon  as  it  is  received.  If  it  fails  to  operate 
properly,  or  is  damaged  in  any  way,  a  claim  should  be  filled  with 
the  carrier.  A  full  report  of  the  damage  should  be  made  out  and 
forwarded  to  Block  Engineering,  Inc.  who  will  then  advise  you  of 
the  disposition  of  the  equipment  and  arrange  for  repair  or  re¬ 
placement.  Include  the  model  and  serial  numbers  in  any  correspon¬ 
dence  regarding  this  instrument. 


1.4  RETURN  FOR  REPAIR  INSTRUCTIONS 

If  any  fault  develops,  the  following  steps  should  be  taken: 

1.  Notify  Block  Engineering,  Inc.  giving  full 
details  of  that  difficulty;  include  model 
and  serial  numbers.  Upon  receipt  of  this 
information.  Block  Engineering,  Inc. ,  will 
reply  with  either  service  or  shipping  instruc¬ 
tions.  DO  NOT  return  any  equipment  without 
prior  acknowledged  notification. 

2.  If  the  equipment  is  to  be  returned  to  Block 
Engineering,  Inc.,  pack  it  in  its  original 
containers  or  according  to  the  shipping 
instruction,  and  forward  it  prepaid  to  the 
address  given  below.  Unless  otherwise  instruc¬ 
ted,  arrange  shipment  via  air  freight.  If 

the  original  shipping  containers  have  been 
discarded,  the  instrument  should  be  packed  in 
strong  exterior  containers  (preferably  wood) 
and  surrounded  by  at  least  two  inches  of  foam 
rubber  or  similar  shock  absorbing  material. 

3.  Address  Shipping  Container  as  follows: 

Block  Engineering,  Inc., 

19  Blackstone  Street 
Cambridge,  Massachusetts  02139 
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2. 


HARDWARE  DESCRIPTION  GENERAL 


The  system  built  by  Block  Engineering,  Inc.  for  this 
application  utilizes  a  laser  transmitter  and  a  remote  receiver 
(up  to  2km)  with  a  sufficiently  large  aperture  such  that  the 
three  laser  beams  are  completely  contained,  even  in  the  presence 
of  scintillation.  The  three  laser  beams  are  projected  along  a 
common  boresight  axis  through  the  transmitter  telescope  which 
is  focussed  at  the  plane  of  the  receiver  aperture.  The  trans¬ 
mitted  radiation  is  modulated  with  a  chopper  and  then  monitored 
at  the  transmitter  aperture  to  allow  correction  for  laser  amplitude 
fluctuations  by  ratioing  with  the  received  radiation. 


2.1  TRANSMITTER  OPTICS 

As  can  be  seen  in  the  Drawing  BEI  650468,  radiation  is  generated 
by  the  three  lasers,  SI,  S2,  and  S3.  The  SI  beam  is  4mm  in  diameter, 
but  the  S2  and  S3  beams  are  smaller,  and  so  S2  and  S3  are  expanded 
by  the  beam  expanders  EX2  and  EX1.  The  three  beams  are  combined 
using  the  beamsplitters  BS1,  BS2,  and  BS3.  BS3  is  designed  to 
reflect  90%  of  the  0.6328  micron  laser  radiation  but  transmit 
other  visible  radiation  to  permit  viewing  through  the  system  optics 
by  personnel.  BS2  is  designed  to  reflect  over  90%  of  the  1.06 
micron  laser  radiation,  but  transmit  90%  of  all  visible  radiation. 

BS1  is  designed  to  reflect  36%  of  all  radiation,  absorbing  or 
transmitting  the  remainder.  BSl  transmits  radiation  from  about 
2  to  14  microns,  and  therefore  transmits  about  40%  of  the  SI  laser 
radiation,  reflecting  about  60%  to  the  absorber  BB1.  Two  beam 
adjusting  mirrors,  M8  and  M9 ,  are  used  to  position  and  align  the 
SI  laser  beam  to  the  other  beams. 
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The  three  beams  are  combined  after  BS1,  and  proceed  through 
the  chopper  Cl,  which  modulates  the  radiation  at  1.2kHz.  The 
beams  are  reflected  by  the  flat  mirrors  Ml  and  M2  to  the  focussing 
mirror  M3.  This  beam  diverges  from  the  focal  point,  through  the 
flat  mirror  M4  to  the  primary  collimator  mirror  M5.  The  collimator 
beam  is  transmitted  from  the  instrument  through  the  aperture  at  the 
opposite  end. 

A  very  small  part  of  the  beam  is  intercepted  by  the  prism 
mirror  PI,  which  deflects  this  portion  of  the  radiation  through 
the  flat  mirrors  M6  and  M7  to  the  beamsplitters  BS4 ,  BS5,  and  BS6. 
These  beamsplitters  are  made  of  identical  materials  and  coatings  to 
BS1 ,  BS2,  and  BS3 ,  respectively.  The  SI  radiation  is  transmitted 
through  BS4  to  the  detector  lens  Ll ,  which  focuses  the  energy  onto 
detector  Dl,  a  pyroelectric  long  wavelength  detector.  The  S2 
radiation  is  reflected  by  BS5  to  lens  L2  and  focuses  onto  detector 
D2 ,  a  Si  photodiode  optimized  for  red  and  near  infrared  radiation. 
The  S3  radiation  is  reflected  by  BS6  to  lens  L3  and  focused  onto 
detector  D3,  an  identical  type  to  D2. 


2.2  RECEIVER  OPTICS 

Drawing  BEI  650469  shows  the  receiver  optical  system.  Radiation 
is  received  by  the  large  paraboloid  primary  mirror  Ml,  which  focuses 
this  radiation  at  a  point  just  past  the  diagonal  prism  mirror  M2. 

The  radiation  is  transferred  through  the  spherical  mirror  M3  to  a 
focus  at  the  detector  lenses.  This  converging  beam  is  folded  by  flat 
mirrors  M4,  M5 ,  and  M6.  Beamsplitters  BS1,  BS2,  and  BS3  are  identical 
to  transmitter  beamsplitters  BSl,  BS2 ,  and  BS3,  respectively,  and 
the  characteristics  are  described  in  the  transmitter  discussion. 
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The  detector  lenses  Ll,  L2 ,  and  L3  and  the  detectors  D1 ,  D2,  and 
D3  are  identical  to  those  in  the  transmitter  with  the  same  designa 
tion.  Filter  FI  is  used  to  reject  extraneous  infrared  radiation 
outside  of  the  laser  wavelength  range.  Filter  F2  blocks  the 
laser  radiation  so  that  viewing  by  personnel  during  operation  is 
possible.  Filter  F3  is  a  ground  glass  viewing  screen,  permitting 
ease  of  alignment  of  the  receiver  to  the  He-’.e  laser  beam.  A 
small  retroref lector  is  mounted  at  the  center  of  the  aperture  to 
provide  a  return  flash  when  the  He-Ne  beam  is  incident  on  the 
aperture.  An  eyepiece  and  reticle  are  also  provided  to  help  in 
verifying  the  alignment. 


2.3  OPTICAL  SURFACES 

All  mirrors  in  this  system  are  aluminized  first  surface  mirrors 
protected  by  a  silicon  monoxide  overcoat.  DO  NOT  TOUCH  MIRRORS,  LENSES 
OR  BEAMSPLITTER  SURFACES.  Although  these  surfaces  can  be  cleaned, 
acids  from  some  persons  fingers  are  strong  enough  to  etch  these 
surfaces  in  a  few  hours,  and  cleaning  will  not  remove  such  marks. 

Since  the  optical  elements  are  exposed  to  ambient  air,  the  collection 
of  oil  and  other  aerosols,  as  well  as  dust  particles  will  tend  to 
gradually  reduce  the  system  transmission.  Cleaning  of  all  surfaces 
is  recommended  every  six  months,  or  more  frequently  if  contamination 
is  severe.  Each  mirror  coating  will  withstand  up  to  about  ten 
cleanings  before  recoating  might  become  necessary,  unless  unusual 
severe  treatment  has  been  given  to  them. 
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2 . 4  OPTICAL  CLEANING 

Mirrors,  lenses,  and  beamsplitters  can  be  cleaned  by  using 
alcohol  and  fine  lens  tissue.  Alcohol  should  be  kept  clean  in 
a  container  which  permits  ejection  of  a  gentle  jet  or  spray  onto 
the  optical  surface.  The  surface  should  be  rinsed  in  the  spray 
without  touching  the  surface  with  the  tissue,  collecting  the  used 
liquid  in  a  tissue  held  below  the  bottom  edge.  Do  not  reuse  the 
liquid!  Then  wet  a  clean  tissue  held  loosely  in  one  hand,  and 
let  the  wet  tissue  contact  the  optical  surface  over  as  large  an 
area  as  possible  while  still  holding  the  edge  of  the  tissue.  Care¬ 
fully  pull  the  tissue  across  the  surface  without  applying  any 
pressure  on  the  tissue  area  in  contact  with  that  surface.  The 
tissue  may  be  used  once  on  either  side,  and  then  must  be  dis¬ 
carded.  This  process  may  be  repeated  once  or  twice  until  the  mirror, 
lens  or  beamsplitter  is  clean.  Rubbing  the  surface  of  a  mirror  will 
probably  damage  the  coating,  but  is  not  as  likely  to  damage  the  lenses 
or  beamsplitters,  if  done  gently. 

If  alcohol  does  not  seem  to  remove  the  contaminant  material 
on  the  surface,  acetone  may  be  used  with  the  same  procedure,  but 
this  must  be  done  more  quickly,  since  the  evaporation  of  acetone 
is  much  more  rapid,  leading  to  spot  formation.  If  large  amounts 
of  dust  or  debris  are  found  on  the  mirror,  it  is  best  to  remove 
the  mirror  from  the  mounting  and  wash  it  carefully  under  a  gentle 
stream  of  water.  The  tissue  may  be  used  as  before  to  dislodge 
deposits.  After  cleaning  with  water,  alcohol  or  acetone  must  be 
used  to  remove  all  traces  of  the  water  so  as  to  avoid  mineral  de¬ 
position.  A  similar  cleaning  can  be  done  with  a  mild  mixture  of 
liquid  household  detergent  (Joy  or  equivalent)  and  water,  followed 
by  a  water  rinse  and  alcohol  or  acetone  cleanup. 
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2.5  ELECTRONIC  DESCRIPTION,  GENERAL 

The  transmissometer  system  can  be  divided  into  three  sections, 
the  transmitter,  receiver  and  the  control  desk  console. 

The  transmitter  houses  the  three  lasers,  the  chopper  assembly 
and  the  three  detector-preamplifier  combinations.  These  three 
detectors  provide  the  reference  signal  used  in  the  transmission 
calculation.  Furthermore,  the  silicon  detector  used  for  the  He-Ne 
laser  also  provides  the  reference  signal  required  for  synchronously 
demodulating  the  six  optical  channels.  There  is  also  a  temperature 
controller  in  the  transmitter  that  is  used  to  maintain  the  three 
detectors  at  a  constant  temperature  slightly  above  the  normally 
expected  ambient. 

The  receiver  has  three  matching  detector-preamplifiers,  one 
to  match  each  one  located  in  the  transmitter.  A  remotely  controlled 
(from  the  electronics  controller)  gain  change  amplifier  for  each 
channel  has  been  included  in  the  receiver  for  optimizing  the  signal  to 
noise  under  varying  conditions.  The  receiver  also  contains  the 
current  drivers  and  transfomers  needed  to  properly  interface  the 
2000  meters  of  cable  connecting  the  receiver  to  the  control  desk 
console  which  is  located  back  at  the  transmitter. 

The  desk  console  contains  the  H.P.  9825  desk  calculator,  the 
power  supply  for  the  CC>2  laser,  CLIMET  meteorological  signal 
conditioner,  and  the  transmissometer  controller.  The  H.P.  desk 
calculator,  power  supply  for  the  C02  laser  and  Climet  signal 
conditioner  all  have  detailed  manuals  supplied  by  their  respective 
manufacturers  and  therefore  will  not  be  discussed  in  detail  in 
this  manual.  The  transmissometer  controller  contains  the  a.c.  to 
d.c.  regulated  power  supplies  and  all  the  signal  conditioning 
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electronics  needed  to  amplify,  demodulate  and  filter  the  electrical 
signals  from  the  transmitter  and  receiver.  The  controller  also 
acts  as  a  buffer  between  the  receiver  and  transmitter  and  the 
A/D  converter  located  in  the  multiprogrammer. 

2.5.1  Transmitter  Electronics 

The  transmitter  utilizes  EG&G  HAV-1000  silicon  photo¬ 
voltaic  detector/amplifier  combinations.  One  of  the  two  detectors 
is  used  for  the  He-Ne  and  the  other  is  used  for  YAG  laser.  These 
silicon  detectors  are  used  in  the  photovoltaic  mode  and  are  packaged 
with  their  own  optimized  preamplifiers.  The  only  additional 
circuitry  required  is  power  supply  de-coupling  capacitors  and  an 
external  feedback  network.  The  value  of  the  feedback  resistor  capa¬ 
citor  combination  controls  the  gain  and  bandwidth  of  the  preampli¬ 
fier. 


A  pyroelectric  detector  P-1  72G,  by  Molectron,  is  used  for 
the  CC>2  laser  channel.  This  detector  is  also  packaged  with  its  own 
integral  preamplifier  which  incorporates  a  FET  as  its  input  stage. 

As  configured  in  this  system  the  detector/preamplifier  combination 
is  used  in  the  current  mode.  By  using  the  detector  in  this  mode 
the  voltage  at  the  detector  terminals  is  held  at  zero  while  causing 
a  current  proportional  to  the  received  optical  power  to  flow  through 
the  feedback  resistor.  This  current  through  the  feedback  resistor 
generates  the  signal  voltage  at  the  amplifier  output.  Again  the 
feedback  resistor  capacitor  combination  controls  the  gain  and 
bandwidth  of  the  preamplifiers. 

Each  of  the  three  detectors  have  a  heating  element  attached 
to  their  respective  mounting  brackets.  There  is  one  temperature 
controller  which  supplies  the  necessary  power  to  each  of  the 
three  heating  elements.  Since  the  thermal  load  on  each  detector 
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assembly  is  approximately  the  same  it  is  possible  to  monitor 
the  temperature  of  one  detector  assembly  and  use  this  information 
to  control  all  three  assemblies.  The  absolute  temperature  of  each 
assembly  is  not  critical,  but  the  temperature  should  remain  constant 
so  that  the  operating  point  of  the  detectors  does  not  change  due 
to  ambient  temperature  changes.  Since  the  characteristics  of  the 
pyroelectric  detector  show  the  strongest  dependance  on  temperature 
the  control  thermistor  for  the  three  detector  assemblies  is  mounted 
on  the  pyroelectric  detector  assembly. 

The  temperature  controller  uses  a  bridge  type  circuit  with  the 
control  thermistor  in  one  arm  of  the  bridge.  An  operational  ampli¬ 
fier  is  used  to  amplify  and  integrate  the  error  voltage  generated 
across  the  bridge.  The  output  of  the  amplifier  is  used  to  control 
the  drive  current  to  the  power  transistor  which  is  in  series  with 
the  heating  elements.  The  temperature  of  the  controller  may  be 
adjusted  by  changing  the  value  of  R-3  if  a  higher  or  lower  set 
point  is  required. 

The  He-Ne  and  YAG  lasers  which  are  part  of  the  transmitter 
only  require  115Va.c.  since  they  each  have  their  own  internal  power 
supplies.  The  main  power  switch  located  on  the  front  panel  of  the 
desk  console  controls  the  line  voltage  to  both  of  these  lasers. 

The  CC>2  laser  receives  its  power  from  a  separate  high  voltage 
supply.  This  high  voltage  power  supply  is  located  in  the  desk 
console  for  mounting  convenience. 

The  final  item  in  the  transmitter  is  the  chopper  assembly. 

A  d.c.  motor  is  used  for  the  chopper.  This  motor  receives  its 
power  from  a  regulated  d.c.  power  supply  located  in  the  Electronic 
Controller.  A  resistor  has  been  placed  in  series  with  the  motor 
and  the  power  supply  in  order  to  adjust  its  speed. 
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2.5.2  Receiver  Electronics 


The  three  detectors  and  their  respective  preamplifiers  are 
exactly  the  same  as  the  detector  preamplifier  combinations  described 
in  Section  1.1.  The  temperature  controller  is  also  the  same  and 
therefore  the  description  given  in  Section  1.1  is  also  applicable. 

In  order  to  optimize  the  signal  to  noise  under  varying 
atmospheric  conditions  between  the  transmitter  and  the  receiver 
an  additional  amplifier  has  been  included  in  the  receiver.  This 
amplifier  has  two  possible  gain  states,  IX  and  16X.  The  gain  is 
controlled  through  the  Electronic  Controller  either  by  the  switch 
labelled  GAIN  if  it  is  in  HIGH  or  LOW  or  via  the  computer  when 
the  switch  is  in  AUTO.  Control  for  the  gain  change  is  brought 
to  the  receiver  via  the  CO^  channel  transmission  line. 

The  transmission  lines  which  interconnect  the  receiver  and 
the  Electronic  Controller  are  driven  through  impedance  matching 
transformers  by  appropriate  current  drivers. 

Regulated  power  is  provided  to  the  receiver  electronics  by 
a  d.c.  to  d.c.  converter  at  the  receiver.  The  input  power  to  this 
converter  is  brought  from  the  Electronics  Controller  via  the  YAG 
and  He-Ne  transmission  lines.  It  is  important  that  the  length 
of  cable  (2000m)  supplied  with  the  system  always  be  connected  between 
the  Electronics  Controller  and  the  Receiver  because  of  the  voltage 
drop  across  the  2000m  of  cable.  Too  little  cable  would  not  drop 
the  voltage  sufficiently  and  could  damage  the  d.c.  to  d.c.  converter. 
Too  much  cable  would  cause  a  larger  voltage  drop  across  the  cables 
and  if  this  additional  voltage  drop  became  too  large  the  regualtor 
could  fall  out  of  regulation. 
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2.5.3  Electronic  Controller 


The  Electronic  Controller  contains  six  almost  identical 
channels,  two  for  each  laser,  one  for  the  receiver  signal  and 
the  other  for  the  transmitter  signal.  Each  channel  contains 
an  input  buffer  amplifier,  a  demodulator  and  two  low  pass  filters. 

Each  output  of  the  two  low  pass  filters  of  each  channel  are 
available  on  the  front  panel  bnc  connectors  labeled  CHI,  CH2 ,  and 
CH3,  depending  upon  which  time  constant  has  been  selected  by  the 
user.  A  1  second  time  constant  is  available  along  with  a  10 
millisecond  time  constant.  The  1  second  time  constant  is  the  only 
one  available  to  the  computer  for  sampling,  but  with  an  oscilliscope 
or  DVM  either  output  can  be  monitored  at  the  front  panel. 

In  addition  to  6  channels  the  controller  also  contains  the 
necessary  electronics  to  generate  the  reference  signal  for  the 
demodulators.  This  signal  is  generated  from  the  transmitted 
He-Ne  laser  signal.  By  passing  the  He-Ne  signal  through  a  high 
gain' amplifier  a  reference  signal  (approximately  a  square  wave) 
is  generated.  The  square  wave  generated  from  the  He-Ne  signal 
is  used  to  alternately  change  the  gain  of  the  amplifier  from  +1 
to  -1  therefore  causing  full  wave  rectification  or  demodulation 
of  the  signal. 

2.5.4  Electronic  Schematics 

A  complete  set  of  reduced  schematics  are  included  here  for 
convenience . 

Ecom  System  Block  Diagram  34  900  026 
System  Power  33  200  019 
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Transmitter : 


Head  Electronics 

34 

750 

084 

Electronics  Console 

35 

750 

086 

LPF  (Low  Pass  Filter) 

33 

720 

014 

Demodulator 

33 

720 

013 

Temp  Controller 

33 

300 

012 

Power  Supply 

33 

200 

043 

Gain  Range 

32 

120 

018 

Receiver: 

Receiver  Electronics 

34 

750 

085 

Receiver  Gain  Shift  Logic/ 

Level  Snifter 

33 

600 

066 

Receiver  Temp  Contoller 

32 

300 

Oil 
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DESCRIPTION 


3. 


SOFTWARE  DESCRIPTION 


All  software  is  written  in  HPL ,  the  BASIC-like  language  of 
the  HP  9825.  Extensive  use  is  made  of  the  language  extensions 
provided  by  the  String/Advanced  Programming  ROM  (read  only  memory) 
and  the  General  I/O  Extended  I/O  ROM.  This  manual  assumes  that  the 
reader  is  familiar  with  the  HP  9825  calculator  and  HPL.  (See 
Hewlett  Packard  documentation  supplied  with  the  System) .  Program 
listings  and  flow  charts  may  be  found  in  Appendix  A  of  this  manual. 

The  tramsmissomet  r  operating  software  for  the  HP  9825  calculator 
is  a  collection  of  subroutines  divided  into  two  overlays  and 
activated  through  the  use  of  the  HP  9825  special  function  keys. 

Since  the  calculator  memory  is  volitile  (contents  are  lost  when 
power  is  removed) ,  the  software  is  stored  on  a  tape  labled  "Soft 
ware"'.  File  0  of  track  0  contains  the  initial  overlay.  The 
first  overlay  contains  initialization,  calibration  and  data  review 
routines,  the  second  overlay  contains  the  data  acquisition  and 
data  recording  software.  For  convenience,  some  functions  are  in 
both  overlays.  Table  3-1  contains  a  list  of  the  transmissometer . 
functions  in  each  overlay.  A  discussion  of  each  of  these  functions 
appears  later  in  this  section.  If  a  function  that  is  not  in  the 
resident  overlay  is  requested,  the  operator  is  prompted  to  insert 
the  "Software"  tape  if  it  is  not  already  loaded,  and  press  "Continue". 
The  other  overlay  is  then  automatically  loaded  and  the  requested 
function  executed. 
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TABLE  3-1 

TRANSMISSOMETER  FUNCTION  SUMMARY 


Function 

Purpose 

Overlay  File 

0 

INIT 

System  Initialization 

0, 

Continued 

on  2 

1 

RUN 

Collect  and  Record  Data 

2 

2 

STOD 

Set  Time  of  Day 

0 

3 

GTOD 

Get  Time  of  Day 

0 

and 

2 

4 

MARK 

Mark  (Format)  Data  Tape 

0 

TAPE 

Load  and  Position  Data 

2 

Tape 

6 

CAL 

Input  Calibration 
Constants 

0 

7 

INTERVAL 

Input  No  of  Scans 
to  Average 

0 

and 

2 

8 

PRINT 

Compliment  Print  Flags 

0 

and 

2 

9 

HEADER 

Input  Header  Text 

0 

and 

2 

10 

TERM 

Terminate  "RUN"  or 
"REPLOT" 

0 

and 

2 

11 

DLIST 

List  Data  Tape  Headers 

0 

SHIFT  0  REPLOT 

Replot  Data  from  Tape 

0 

SHIFT  6  PRT  SCAN 

Measure  and  Print 

Voltages  on  Each  Channel 

0 

and 

2 

The  software  design  consists  of  a  series  of  relatively  small 
subroutines.  This  modular  approach  should  make  the  software  rela¬ 
tively  easy  to  modify  should  this  become  necessary. 

The  software  is  also  designed  so  that  an  operator  not  familiar 
with  the  HP  9825  could  operate  the  transmissometer  with  a  minimum 
of  training.  Toward  this  end,  all  commands  have  been  implemented 
through  the  special  function  keys,  and  the  software  tape  has  been 
configured  so  that  the  software  is  automatically  loaded  and  the 
" IN IT"  function  automatically  executed  whenever  the  calculator  is 
turned  on.  (Assuming  that  the  software  tape  has  been  loaded  first 
See  Chapter  5  on  how  to  use  the  system) . 

The  following  are  descriptions  of  the  commands  (or  functions) 
summarized  in  Table  3-1. 

INIT  -  System  Initialization 

This  is  the  system  initialization  routine.  It  loads  the 
special  function  keys  from  tape  file  1,  dimensions  all  arrays  and 
defines  all  system  constants.  It  calls  subroutine  MP  TEST  to  test 
the  multiprogrammer  and  then  automatically  sequences  through  functions 
STOD,  CAL,  INTERVAL,  HEADER  and  TAPE.  Upon  completion  of  INIT,  the 
system  is  ready  for  a  RUN  function  to  start  data  acquisition. 

INIT  may  be  started  manually  by  using  the  calculator's  RUN  key 
(as  opposed  to  the  RUN  special  function) ,  or,  if  the  special  functions 
have  been  initialized  (by  a  previous  INIT) ,  by  using  the  INIT  special 
function  key.  Under  normal  conditions,  it  should  not  be  necessary 
to  re-execute  INIT  after  the  initial  power  on. 
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RUN  -  Start  Data  Acquisition  and  Recording 

This  is  the  "RUN"  special  function  not  to  be  confused  with  the 
calculator's  RUN  key.  This  program  causes  data  from  all  optical 
and  metorological  channels  to  be  digitized,  averaged  if  INTERVAL  is 
greater  than  1,  and  converted  to  physical  quantities  through  the 
application  of  the  calibration  constants.  The  calibrated,  averaged 
data  is  written  on  tape  for  perminent  storage  and  printed/plotted 
on  the  printer  if  the  print  flag  (see  PRINT)  is  set. 

Instead  of  recording  transmittance  values  on  tape,  the  trans¬ 
mitted  and  received  signals,  along  with  the  calibration  constants 
for  the  3  laser  channel  pairs,  are  recorded.  If  the  transmitted 
signal  for  any  channel  drops  below  2.56  volts  rms,  it  is  assumed  that 
there  has  been  a  laser  malfunction.  A  message  to  that  effect 
("Channel  I  Below  Threshold"  -  I  1  for  HeNe,  2  for  YAG,  3  for  CO^) 
is  displayed  in  the  LED  display  and  the  transmittance  value  printed 
for  that  channel  is  -1  (actual  measured  transmitted  and  received 
voltages  are  still  recorded  on  tape) . 

If  the  transmittance  on  a  channel  exceeds  1.0,  a  warning  message 
is  displayed  on  the  LED  display  ("Channel  I  needs  calibration") 

Output  data  to  both  the  tape  and  the  printer  is  buffered  so 
that  the  periodic  outputs  do  not  interfere  with  data  acquisition 
at  regular  intervals  (every  2  seconds) .  There  is  enough  buffer 
space  in  memeory  to  allow  time  for  loading  a  new  tape  when  the 
current  one  is  full  or  to  replace  paper  in  the  printer  if  necessary, 
without  stoping  a  RUN  or  loosing  data. 
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STOP  -  Set  Time  of  Day 


This  routine  prompts  the  operator  to  enter  the  time  and  date. 

This  information  is  used  to  set  the  system  clock  (counters  in  the 
Multiprogrammer)  and  calendar  (D  array) . 

GTOD  -  Get  Time  of  Day 

This  routine  displays  the  time  and  date  in  the  calculator's 
LED  display.  If  a  RUN  command  is  active,  the  display  will  auto¬ 
matically  be  updated  every  2  seconds.  In  addition  to  the  time  and 
date,  a  "timeout"  number  is  displayed.  This  is  the  number  of  times 
a  timeing  loop  was  executed  after  data  collection  while  waiting  for 
the  next  clock  "tick".  If  this  count  ever  gets  to  200  the  program 
is  aborted  on  the  assumption  that  the  clock  has  malfunctioned. 

This  number  is  meaningless  if  RUN  is  not  active. 

MARK  -  Mark  or  Format  Data  Tape 

Ref ore  data  can  be  recorded  on  tape,  the  tape  must  be  marked  or 
formatted  into  files.  This  routine  will  mark  a  tape  into  290  files 
of  328  bytes  on  both  tracks  (580  files  per  tape) .  RUN  will  not  record 
data  on  any  tape  not  so  marked  and  MARK  will  not  mark  a  tape  unless 
it  is  blank.  RUN  will  also  not  record  data  in  files  already  con¬ 
taining  data.  This  is  intended  to  prevent  the  inadvertent  destruc¬ 
tion  of  previously  recorded  data  or  software  files.  However,  no 
system  is  fool  proof:  Do  not  attempt  to  MARK  anything  but  a  blank 
tape .  Do  not  attempt  to  RUN  with  anything  but  a  previously  MARKed 
data  tape. 
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TAPE  -  Position  a  Premarked  Tape  in  Preparation  to  Run 


The  TAPE  function  verifies  that  the  tape  in  the  machine  is  a 
MARKed  data  tape  and  then  searches  for  the  end  of  the  data  -  if  any- 
which  has  already  been  recorded,  assigns  the  next  sequential  volume 
number  and  leaves  the  tape  in  position  for  data  recording. 


If  the  MARKed  data  tape  has  had  no  data  previously  recorded 
on  it,  then  TAPE  will  display  "TAPE  NO.  +  ?"  in  the  calculator's 
LED  display  and  wa.t  for  the  operator  to  type  in  a  tape  number 
assignment.  This  number  is  recorded  on  the  tape  for  identification 
purposes.  The  tape  is  positioned  to  Track  0,  Volume  1  and  a 
message  to  that  effect  is  displayed. 

CAL  -  Calibration  Constants 

The  purpose  of  CAL  is  to  establish  values  for  the  calibration 
constant  array  C.  The  first  time  CAL  is  executed  this  array  is 
set  up  with  default  values  written  into  the  program.  (This  is 
bypassed  on  subsequent  executions) .  The  operator  is  then  asked 
"Update  CAL  values  (0-no,  l=yes)".  If  the  answer  is  0,  all  current 
values  are  retained.  If  it  is  1,  the  current  values  are  displayed 
one  at  a  time.  For  each  one,  the  operator  may  either  type  in  a  new 
value,  or  retain  the  current  value  by  pressing  CONTINUE  without 
typing  a  new  value. 

INTERVAL  -  Input  Number  of  Scans  to  Average 

This  function  allows  the  operator  to  set  the  number  of  scans 
which  will  be  averaged  for  a  measurement.  This  average  is  actually 
an  exponentially  decaying  running  average  analogus  to  a  simple 
electrical  low  pass  filter  with  a  time  constant  of  INTERVAL  scans. 
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The  average  of  each  channel  is  computed  individually  according 
to  the  following 


Average;  =  Measurement;  xf  +Average^_^  x  (1-f) 
where  f;  =  exp  (-INTERVAL) 

th 

Measurement;  =  the  i— —  measurement  (scan) 
of  a  given  channel 

Average;  =  The  average  of  a  given 

channel  after  the  iJ-h  scan 


PRINT  -  Compliment  Print  Flag 

When  RUN  is  executed,  data  is  printed/plotted  on  the  9871 
Printer  as  well  as  recorded  on  tape.  The  PRINT  function  com¬ 
pliments  a  print  flag  used  by  RUN  to  inhibit  printing.  (When 
RUN  is  started  this  flag  is  set  on) .  During  a  RUN,  if  printing 
has  been  supressed  by  a  PRINT  function,  it  can  be  re-enabled  by 
a  second  PRINT. 

HEADER  -  Input  Header  Text 

One  line-up  to  80  characters  -  of  user  supplied  text  is  included 
as  part  of  the  header  information  in  both  the  printout  and  on  tape. 
HEADER  displays  the  current  text  and  waits  for  operator  input.  The 
operator  may  type  in  a  new  text  or  retain  the  old  one  pressing  "CONTINUE 

TERM  -  Terminate  RUN  or  REPLOT 

The  primary  function  of  TERM  is  to  terminate  a  RUN.  TERM 
sets  a  terminate  flag  monitored  by  RUN.  When  RUN  sees  this  flag 
set,  it  stops  collecting  new  data,  finishes  outputing  the  data  it 
already  has  and  then  stops.  TERM  may  also  be  used  to  abort  REPLOT. 
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DLIST  -  List  Data  Tape  Headers 

The  DLIST  function  will  read  and  print  the  header  information 
for  each  volume  of  a  recorded  data  tape.  This  provides  a  summary 
printout  -  table  of  contents  -  for  a  data  tape. 

RE PLOT  -  Replot  a  Volume  of  Data  from  Tape 

REPLOT  will  produce  a  print/plot  similar  to  the  one  produced 
by  RUN.  The  only  difference  is  that  since  the  data  is  being  read 
back  from  tape  there  are  no  real  time  contraints  and  all  of  the 
data  from  the  selected  volume  is  printed.  (Printing  a  line  of  data 
takes  about  3  seconds.  Thus,  not  all  data  can  be  printed  during 
a  RUN  if  INTERVAL  is  1) . 

REPLOT  will  terminate  normally  at  the  end  of  the  selected 
volume,  or  it  may  be  aborted  with  TERM. 

Prt  SCAN  -  Print  Scan 

The  Prt  SCAN  function  makes  one  SCAN  i.e.  digitized  the  voltage 
reading  for  each  channel  and  prints  the  results  on  the  calculator's 
thermal  printer.  For  convenience,  the  ratio  for  each  laser  receiver 
pair  is  also  printed.  This  ratio  is  the  calibration  factor  required 
by  CAL  if  the  system  is  in  proper  alignment  and  the  actual  trans¬ 
mission  between  transmitter  and  receiver  is  unity. 
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4 .  ALIGNMENT  AND  CALIBRATION 

The  alignment  of  the  instrumentation  begins  with  the  sep¬ 
arate  alignment  of  the  receiver  and  transmitter.  Once  these 
components  are  mounted  in  their  operational  configuration,  the 
alignment  of  the  two  parts  to  each  other  completes  the  alignment 
process. 

Calibration  of  the  system  can  be  considered  in  terms  of  an 
initial  calibration  and  a  continuing  self-calibration.  In  addition, 
transfer  calibration  standards  can  be  used  which  supplement  the 
basic  calibration  and  allow  rapid  verification  of  system  stabi¬ 
lity. 


4.1  RECEIVER  ALIGNMENT 

Alignment  of  the  receiver  is  relatively  straightforward,  and 
can  be  done  without  the  transmitter.  The  receiver  is  placed  so 
that  a  large  brightly  illuminated  white  screen  fills  the  aperture 
with  visible  radiation.  Using  a  small  opaque  white  cardboard 
screen  to  observe  the  diffuse  reflection,  the  focus  at  the  prism 
diagonal  mirror  M2  is  examined  for  uniformity  of  illumination. 

The  diagonal  M2  is  adjusted  so  that  the  radiation  reaching  the 
transfer  mirror  M3  is  uniform  and  centered,  M3  is  adjusted  so 
that  the  radiation  is  centered  on  mirrors  M4 ,  M5 ,  and  M6  is  adjusted 
so  that  the  radiation  is  centered  on  the  beamsplitter  BS1,  and  BS1 
is  adjusted  so  that  the  radiation  is  centered  on  the  filter  screen 
F3.  The  large  screen  is  removed,  and  the  receiver  is  pointed  at  a 
remote  scene  with  brightly  illuminated  patterns  present.  The  image 
plane  at  lens  K3  is  examined  for  focus  error  in  the  primary  telescope, 
and  it  is  adjusted  for  the  sharpest  focus  possible.  The  lens  L4  is 
adjusted  so  that  the  reticle  is  superimposed  on  the  scene. 


4-1 


Block  Engineering,  Inc. 


(If  the  scene  illumination  is  bright  enough,  it  may  be  possible 
to  see  the  focus  at  the  lens  L2  image  plane.) 

The  two  short  wavelength  detectors  D2  and  D3  can  be  aligned 
with  a  flashlight  or  other  portable  visible  radiation  source. 

By  moving  this  source  in  and  out  of  the  receiver  field  at  the 
telescope  aperture,  the  alignment  of  beamsplitters  BS2  and  BS3  and 
detector  modules  D2  and  D3  can  be  performed,  since  the  detector 
corresponds  to  the  primary  mirror  pupil.  When  the  signal  from 
the  preamplifier  shows  an  equal  response  when  the  source  is  moved 
in  and  out  at  any  point  around  the  periphery  of  the  primary  aper¬ 
ture,  the  detector  is  well  aligned. 

The  same  technique  is  used  for  the  infrared  detector,  but  a 
hot  thermal  source  must  be  used  instead  of  a  visible  source. 

A  small  flame  or  an  exposed  hot  filament  can  be  used.  The  detector 
module  D1  is  adjusted  to  provide  uniform  response  as  before. 


4.2  TRANSMITTER  ALIGNMENT 

Transmitter  alignment  begins  with  the  He-Ne  laser  S3.  Since 
this  radiation  can  be  viewed  directly,  it  is  easy  to  view  the  beam 
using  a  small  white  screen  or  card,  which  can  be  inserted  into  the 
optical  train.  Preliminary  adjustment  of  beamsplitters  BS3 ,  and 
BSl  and  mirrors  Ml,  M2,  M3,  M4 ,  and  M5  can  be  made  using  this  screen. 
It  should  be  noted  that  the  alignment  of  laser  SI  and  S2  are  inde¬ 
pendent  of  the  above  adjustments.  It  is  sometimes  useful  to  remove 
the  beam  expander  EXl  to  utilize  the  smaller  beam  size  for  alignment. 
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The  alignment  of  the  infrared  lasers  is  accomplished  by  use 
of  thermal  sensitive  paper,  such  as  is  used  in  the  computer  printer. 
This  paper  will  show  a  spot  "smearing"  as  moved  through  the  beam, 
and  use  of  this  paper  with  the  white  screen  allows  the  accurate 
adjustment  of  the  infrared  beams  to  the  He-Ne  beam.  The  CO 2  laser 

51  is  adjusted  by  tilting  the  mirrors  M8  and  M9 ,  and  positional 
adjustments  are  made  by  shifting  the  laser  slightly  on  its  mount. 
Once  the  two  beams  are  centered,  the  alignment  of  the  CO^  beam 
along  the  following  optical  elements  must  be  checked.  Some  re¬ 
adjustment  between  the  SI  and  S3  beams  may  be  necessary  to  achieve 
good  alignment  all  through  the  system.  Finally,  the  Nd-YAG  laser 

52  is  turned  on,  with  the  C02  laser  off,  and  only  BS2  and  the  S2 
laser  are  adjusted  to  attain  alignment  with  the  He-Ne  beam,  again 
using  the  thermally  sensitive  paper.  Return  both  beam  expanders 
EXl  and  EX2  before  final  fine  alignment  is  performed 

The  transmitter  monitor  optical  system  is  now  aligned  by  the 
same  process.  Prism  diagonal  PI  and  mirrors  M6  and  M7,  and  beam¬ 
splitter  BS1  and  BS2  are  aligned  in  turn,  following  the  somewhat 
weaker  beam  through  the  system.  The  output  of  the  detector 
preamplifier  is  observed,  and  the  detector  module  D3  is  aligned 
to  peak  the  signal.  The  He-Ne  beam  expander  EXl  is  replaced  and 
the  alignment  is  corrected  by  adjusting  BS3,  if  necessary. 

The  other  lasers  SI  and  S2  are  aligned  to  the  S3  laser  by 
focusing  the  telescope  on  the  previously  aligned  receiver,  which 
should  be  at  a  range  of  about  100  meters.  (This  alignment  can  be 
made  at  the  2.0  km  range,  provided  that  very  stable  atmospheric 
conditions  are  present.)  The  receiver  is  masked  for  each  laser 
alignment  according  to  Table  4-1.  (Only  one  mask  is  provided 
with  the  instrument,  with  0.1  and  1.0  cm  apertures  in  it.) 
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TABLE  4-1 
ALIGNMENT  MASKS 


Aperture  at 

Range 

Laser 

100  m  1.0  km 

2 . 0  km 

S2 ,  Nd-YAG 

0 . 1  cm  1 . 0  cm 

2.0  cm 
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The  laser  L2  is  adjusted  to  the  He-Ne  beam  by  adjusting  beamsplitter 
BS2  until  a  signal  maximum  is  obtained  from  the  D2  detector  in  the 
receiver.  Laser  SI  is  adjusted  to  the  He-Ne  beam  by  rotating  the 
mirrors  M8  and  M9 ,  using  the  fine  adjustments  provided,  until  a 
signal  maximum  is  obtained  from  the  D1  detector  in  the  receiver. 

The  instrumental  focus  can  be  set  tentatively  by  placing  an 
optical  flat  in  front  of  the  telescope  and  adjusting  this  flat 
until  the  laser  beam  is  seen  exiting  from  BS3  at  the  same  position 
as  the  entering  beam.  DO  NOT  VIEW  THE  LASER  BEAM  DIRECTLY!!! 

Using  the  white  screen,  adjust  the  focus  of  the  primary  until  the 
exiting  beam  at  BS3  is  a  minimum  diameter.  The  telescope  is  now 
focused  at  infinity,  and  may  be  approximately  set  for  the  2.0  km 
range  by  moving  it  back  1.1  mm.  Slight  adjustment  of  the  align¬ 
ment  may  be  necessary. 


4.3  SYSTEM  ALIGNMENT 

Once  the  transmitter  and  receiver  have  been  aligned,  cali¬ 
brated,  and  positioned  in  the  operational  configuration,  the  final 
alignment  of  the  system  can  be  performed.  The  transmitter  should, 
of  course,  be  roughly  aligned  as  well  as  possible  in  its  installation 
using  the  boresight  view  through  beamsplitter  BS3 .  A  large  white 
screen  can  be  used  to  help  in  the  installation  of  both  transmitter 
and  receiver,  using  the  He-Ne  laser  beam  alone.  Although  the 
field  irradiance  of  this  beam  is  not  injurious  to  the  eye,  the 
practice  of  not  looking  directly  at  the  beam  should  be  developed. 

With  the  system  roughly  aligned,  and  during  very  stable 
atmospheric  conditions,  the  transmitter  primary  M5  can  be  care¬ 
fully  adjusted  to  provide  a  minimum  image  size  at  the  receiver 
aperture,  and  at  the  same  time,  to  center  that  image  on  the  aperture. 
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A  small  retroref lector  is  mounted  on  the  center  of  the  receiver 
aperture  to  facilitate  the  alignment.  This  can  be  seen  through 
the  transmitter  boresight  view,  although  the  field-of-view  is  very 
restricted.  A  white  screen  is  particularly  useful  for  night  work, 
and  the  dancing  of  the  beam  on  the  receiver  aperture  should  be 
studied  to  optimize  the  alignment. 

Alignment  of  the  receiver  can  be  accomplished  very  easily 
since  the  eyepiece  reticle  allows  very  precise  adjustment.  In 
the  intended  installation,  it  is  advisable  to  mount  the  receiver 
using  a  high  quality  machinist's  table,  preferably  with  two-axis 
rotational  adjustments. 
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5. 


ABSOLUTE  TRANSMISSION  CALIBRATION 


The  accurate  calibration  of  transmission  spectra  is  not  a 
trivial  problem,  due  to  the  presence  of  both  instrumental  error 
and  atmospheric  variation.  The  problem  reduces  to  the  difficulty 
of  obtaining  accurate  measurements  over  the  desired  path  with  and 
without  the  atmosphere  present.  Since  it  is  not  reasonable  to  remove 
the  atmosphere,  it  is  necessary  to  correct  the  measurement  for 
the  loss  or  to  obtain  the  transmission  from  several  measurements 
at  different  atmospheric  paths. 


5.1  CORRECTION  FOR  ATMOSPHERIC  LOSS 

In  many  types  of  transmission  measurement,  the  transmitted 
radiation  beam  spreads  significantly,  so  that  it  is  necessary  to 
account  for  the  geometrical  configuration  in  determining  the  true 
transmission.  Since  the  throughputs  of  the  lasers  used  in 
this  system  are  so  low,  it  is  possible  to  intercept  the  entire 
transmitted  beam  with  the  receiver  so  that  the  geometrical  factors 
do  not  enter  the  correction.  In  this  case,  it  is  necessary  to  know 
the  system's  optical  efficiency  accurately  and  to  monitor  the 
transmitted  beam  in  a  precisely  controlled  way.  The  atmospheric 
transmission  is  then  simply  the  received  radiation  divided  by 
the  transmitted  radiation. 
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5.2  BEAM  MONITORING 

In  actual  practice,  it  is  not  possible  to  monitor  the  entire 
transmitted  beam  at  the  exit  aperture,  and  one  must  either  monitor 
a  small  part  of  the  transmitted  radiation  at  that  point  or  monitor 
the  entire  beam  at  some  internal  location.  Block  provides  moni¬ 
toring  at  the  exit  aperture,  because  this  provides  the  most  accur¬ 
ate  indication  of  the  transmitter  performance.  As  a  result,  a 
scale  factor  is  present  in  the  calibration  to  relate  the  monitor 
signal  to  the  transmitted  signal,  in  addition  to  the  optical 
efficiency. 

The  monitored  area  of  the  transmitted  beam  is  a  small  central 
region  of  the  TEMoq  aperture  distribution,  and  since  the  optical 
elements  involved  are  fixed,  the  initial  calibration  of  the  moni¬ 
tor  scale  factor  can  be  expected  to  hold  for  long  periods  of  time. 
This  calibration  is  accomplished  by  bringing  the  receiver  very 
close  to  the  transmitter,  and  equating  the  outputs  of  each  monitor- 
receiver  pair  of  detectors.  If  the  laser  radiates  watts,  the 
transmitter  and  receiver  efficiencies  are  nt  and  nr ,  and  the  receiver 
detector  responsivity  is  Rr  volts/watt,  the  receiver  output  signal 
at  zero  range  will  be 

E  =  W-.ri.ri  R  volts  (4.2-1) 

rc  A  t  r  r 

The  monitor  detector  intercepts  K  of  the  transmitted  radiation, 
with  optical  efficiency  of  nm  and  responsivity  of  Rm,  giving  a 
monitor  output  signal  of 

E  =  K  W.n.n  R  volts  (4.2-2) 

m  A  t  m  m 
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We  can  calculate  the  calibration  factor  G  which  adjusts  the 
monitor  output  to  be  equivalent  to  the  transmitted  signal  by 


G  =  E  /E 
rc  m 


=  X)  R  /Kn  R 
r  r  mm 


(4.2-3) 


At  any  future  time,  the  output  can  be  adjusted  to  represent 
the  transmitted  signal  output  by  multiplication  by  G.  The  trans¬ 
mission  is  consequently 


T.  =  E/G  Em  (4.2-4) 

Arm 

and  as  long  as  the  variations  of  nrRr  due  to  gradual  deterioration 

are  the  same  as  those  of  n  R  ,  the  factor  G  will  remain  constant. 

m  m 

It  is  clearly  desirable  that  the  same  elements  and  coatings  be 
used  in  the  monitor  optics  as  in  the  receiver  optics. 


5.3  MULTIPLE  RANGE  TECHNIQUE 

A  technique  which  is  fairly  well  established  for  the  absolute 
calibration  of  transmission  spectra  is  the  measurement  at  two  dis¬ 
tinct  ranges  with  the  same  instrumentation.  If  these  measurements 
can  be  performed  in  rapid  sequence  over  the  same  transmission  path, 
the  correction  can  be  accomplished  on  the  assumption  that  a  con¬ 
stant  Beer's  law  extinction  coefficient  exists  over  the  path.  We 
perform  signal  measurements  at  two  distances,  intercepting  the 
entire  laser  beam  at  each  receiver  position, 

E1  =  WAntnl  R1  eXp  a*Zl  (4.2-5) 
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(4.2-6) 


E2  =  WXntn2 


-c  z, 
R2  exp  x  1 


and  ratio  them,  giving 


E1/E2  =  [n1R;L/n2R25  exP  °x(Zl  Z2> 


=  G'  exp  “ax(zl~z2) 


(4.2-7) 


The  factor  G'  will  be  equal  to  1.00  if  every  effort  is  made  to 
make  identical  receivers,  and  it  can  be  measured  accurately  by 
the  comparison  of  both  receivers  at  zero  range.  The  coefficient 
ax  can  be  computed  knowing  the  ranges  and  signals.  The  measure¬ 
ments  can,  of  course,  be  made  with  a  single  receiver,  moving  it 
from  one  position  to  the  other.  G’  is  identical  to  1.00  in  this 
case. 


Unfortunately,  the  extinction  coefficient  can  vary  markedly 
over  extended  paths,  but  the  above  approach  can  be  used  for 
measurements  over  a  rather  limited  range;  and  for  controlled  or 
very  stable  conditions.  A  similar  analysis  could  be  done  for 
three  distances,  and  a  linear  variation  in  coefficient  with  range 
could  be  evaluated.  In  the  general  case,  we  may  treat  the  prob¬ 
lem  of  N  separate  measurements  along  the  same  path,  performing  a 
statistical  reduction  of  the  error  in  the  extinction  coefficient. 


5.4  COMPUTED  CORRECTION 

A  technique  which  can  be  used  in  many  cases  for  the  approximate 
correction  to  zero  air  mass  is  the  computation  of  an  extinction 
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coefficient  for  relatively  clear  conditions,  as  measured  by  sub¬ 
sidiary  instruments.  This  coefficient  is  simply  applied  to  the 
measured  transmission  of  the  transmissometer  at  that  wavelength, 
and  the  transmission  correction  is  determined.  Although  this  has 
an  inherently  large  error  for  clear  weather  measurements,  this 
error  becomes  much  smaller  as  weather  deteriorates,  and  corrections 
for  larger  extinction  coefficients  become  increasingly  good.  The 
correction  cannot  be  verified  without  returning  to  clear  conditions, 
of  course. 


5.5  TRANSFER  CALIBRATION  STANDARDS 

Block  can  supply  a  transfer  calibration  standard  which  can 
allow  the  accurate  verification  and  correction  of  calibration  by 
separate  measurements  at  transmitter  and  receiver.  Two  separate 
standards  are  available,  one  effective  in  the  visible  and  near 
infrared,  and  a  second  for  the  mid-infrared. 


5.6  CALIBRATION 

The  initial  calibration  of  this  instrument  is  very  important, 
and  should  be  carried  out  after  the  separate  component  alignments 
have  been  performed.  The  transmittor  and  receiver  are  set  up  at 
essentially  zero  range,  and  aligned  so  that  the  signals  from  the 
receiver  are  maximum.  The  monitor  and  receiver  detector  outputs 
are  recorded,  and  the  ratio  is  obtained  for  each  wavelength.  As 
discussed  in  Section  5.3,  the  calibration  factor  G  at  each  wave¬ 
length  may  be  expected  to  remain  stable  for  very  long  periods  of 
time.  The  use  of  three  independent  measurements  is  advantageous 
since  the  degradation  of  any  one  channel  can  be  easily  noticed  in 
repeated  benign  environmental  conditions. 
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Since  the  instrument  monitors  the  transmitted  radiation  in 
each  channel,  the  ratioing  of  received-to-transmitted  radiation 
is  a  form  of  self-calibration,  since  absolute  radiation  losses  or 
fluctuations  in  the  transmitter  are  canceled  out  in  the  ratio. 

Also,  the  use  of  identical  optics  in  the  monitor  and  receiver,  as 
much  as  possible,  results  in  the  cancellation  of  common  long  term 
degradation  and  aging  factors. 

5 . 7  MOUNTING 

It  is  essential  that  the  transmitter  and  receiver  be  properly 
supported  when  mounted  for  measurements.  The  transmitter  is  a  very 
precisely  aligned  instrument,  and  requires  support  over  most  of 
the  bottom  structure.  Bending  of  the  frame  over  the  course  of  a 
measurement  sequence  will  produce  significant  variations  in  the 
output  through  misalignments  in  the  system.  Therefore,  the  rigidity 
of  the  mounting  is  of  great  importance,  but  it  should  be  noted  that 
only  differential  motions  after  alignment  will  produce  error. 

The  mechanical  precision  of  the  support  must  be  good  to  approximately 
0.1  cm  before  alignment,  but  this  must  be  maintained  to  better  than 
0.01  cm  after  alignment,  despite  environmental  and  station  struc¬ 
tural  variation. 

The  receiver  is  somewhat  less  sensitive  to  mounting  rigidity. 

The  receiver  is  mounted  at  two  points  226  cm  apart,  using  mounting 
bolts  which  are  provided.  Since  the  receiver  fields  of  view  are  2 
milliradians  wide,  the  constraints  on  the  mechanical  precision 
of  the  support  are  0.2  cm  before  alignment,  and  maintenance  to  0.1 
cm  after  alignment. 

Both  transmitter  and  receiver  are  made  with  aluminum  structural 
members,  and  the  mounting  structure  holding  them  should  be  made  of 
the  same  material  to  avoid  thermal  strains.  This  structure  can  be 
installed  on  a  steel  machinists  table  if  appropriate  strain  relief 
is  designed  into  the  mounting. 
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6. 


HOW  TO  USE  THE  SYSTEM 


In  this  section  a  hypothetical  use  of  the  system  to  make  a 
measurement  will  be  discussed.  It  is  assumed  that  the  system  has 
been  previously  installed,  aligned  and  calibrated. 

The  following  sequence  should  be  used  to  power  up  the  system 
from  a  complete  shutdown. 


1.  Check  to  be  sure  no  personnel  are  looking  into  or 
working  around  the  transmitter  aperture. 

2.  Turn  on  the  main  system  power  switch 

3.  Turn  on  the  closed  loop  water  cooler  and  wait 
2  minutes. 

4.  Turn  on  the  C0~  POWER  switch,  be  sure  the  inter¬ 
lock  key  is  in^the  OFF  position,  the  amber  indicator 
lamp  should  illuminate. 

5.  Turn  the  interlock  key  on  the  CO  power  supply  to  the 

ON  position,  the  interlock  indicator  lamp  should  illuminate. 

6.  Turn  the  power  switch  on  the  Transmissometer  Controller 
to  the  ON  position. 

7.  Turn  the  CLIMET  signal  conditioner  power  switch  to  ON 

8.  Turn  the  HP  multiprogrammer  power  switch  to  ON 

9.  At  this  stage  the  complete  system  should  be  ON 
and  operating. 

10.  Wait  at  least  30  minutes  to  allow  the  system  to  stabi¬ 
lize  before  starting  a  measurement  sequence. 


Before  power  is  applied  to  the  calculator,  the  "Software"  tape 
should  be  inserted.  (This  tape  should  be  a  copy  of  the  master 
"Software"  tape  supplied  with  the  system.  It  should  always  be  write 
locked  with  the  slide  switch  at  the  base  of  the  tape  cartirdge.) 


6-1 


Rlurli  Enlinccrinl)  Inc 


When  power  is  applied  to  the  calculator,  the  software  tape  will 
automatically  be  loaded  into  the  calculator  and  started.  See  Section 
3  Software  Description. 

During  the  software  initialization  which  follows,  the  function¬ 
ality  of  the  multiprogrammer  is  checked  automatically.  Like  wise, 
most  of  the  functions  of  the  printer  are  automatically  checked  then 
it  is  turned  on.  Use  of  the  self  test  button  on  the  back  of  the 
printer-described  in  the  printer  manual  completes  the  functional  test 
of  the  printer. 

If  there  are  no  previously  MARKed  blank  data  tapes  available, 
the  INIT  sequence  may  be  stopped  after  the  HEADER  text  input  when 
the  LED  display  shows  "Load  Software  Tape  and  CONTINUE".  A  blank 
tape  may  be  MARKed  at  this  time.  After  MARK  is  complete,  press 
special  function  TAPE.  You  will  be  requested  to  "Load  Software  Tape 
and  CONTINUE’,  the  second  overlay  will  be  automatically  loaded  and 
you  will  be  requested  to  "Load  data  tape  and  CONTINUE' .  After  TAPE 
is  complete  (this  is  the  last  routine  which  would  have  been  executed 
if  the  INIT  sequence  had  run  to  completion)  the  system  is  ready  to 
acquire  data. 

To  acquire  atmospheric  transmission  and  meteorological  data 
print/plot  it  on  the  printer  and  record  the  results  on  tape,  simply 
press  the  RUN  special  function  key.  The  system  will  now  RUN  without 
further  operator  intervention  for  the  time  shown  in  the  display. 

This  is  the  amount  of  record  time  left  on  the  tape.  The  RUN  will 
continue  automatically  until  TERMinated  with  the  TERM  special 
function. 
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Having  completed  a  measurement,  the  data  tape  is  removed  for 
safe  storage. 

For  an  orderly  shutdown  the  following  sequence  is  recommended. 

1.  Turn  off  the  H.P.  calculator  and  multiprogrammer 

2.  Turn  off  the  CLIMET  signal  conditioner 

3.  Turn  off  the  Transmissometer  Controller 

4.  Turn  off  the  high  voltage  power  supply  for  the  CC^ 
laser. 

5.  Leave  the  water  cooler  on  for  5  minutes,  then  turn 
it  off. 

6.  Turn  the  interlock  switch  to  the  locked  position. 

6.1  TAKING  A  COPY  OF  THE  SOFTWARE  TAPE 

It  is  good  operating  procedure  and  highly  recommended  that  the 
software  tape  supplied  with  the  system  be  used  only  for  making  copies 
of  itself  and  be  otherwise  stored  in  a  safe  place.  Only  duplicate 
software  tapes  should  be  used  for  normal  operation. 

To  produce  a  dulicate  software  tape,  the  following  procedure 
is  followed: 

1.  Insert  a  write  enabled  blank  tape  into  the  9825 

2.  Position  tape  to  the  beginning  of  track  0  (rew; 
trk  0  (EXECUTE^) 

3.  Mark  the  three  required  files:  _ 

(mrkl ,  10000;  mrkl,  500;  mrkl,  10000  (^EXECUTE)) 
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4.  Insert  the  master  Software  tape  (write  protected) 
into  the  9825 

5.  Load  files  0  and  1 

(ldf 0  (^execute)) 

(idkl  (EXECUTE^)) 

6.  Re-insert  tape  marked  in  step  3 

7.  Record  files  0  and  1  (rcfO;  rckl  (^EXECUTE^)) 

8.  Insert  master  software  tape  and  load  file  2 

(idf 2  (EXECUTO)) 

9.  Re-insert  tape  from  step  6  and  record  file  2 

(ref 2  (EXECUTE)) 

LO.  Remove  the  new  duplicate  software  tape  from  the  9825 
and  write  lock  it. 
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7. 


CONTROLS,  GENERAL 


All  necessary  controls  for  normal  operation  are  located  at  the 
control  desk  console.  Each  control  function  will  be  explained  in 
the  following  sections. 


7.1  LASER  TRANSMISSOMETER  SYSTEM  POWER 

All  the  necessary  power  for  the  system  is  routed  through  the 
switch  labeled  LASER  TRANSMISSOMETER  SYSTEM  POWER.  This  switch 
besides  controlling  the  system  power  also  serves  as  the  main  circuit 
breaker  for  the  entire  system.  The  switch  consists  of  a  25  ampere 
short  time  delay  circuit  breaker  and  is  located  on  the  front  panel  on 
the  upper  left  side  of  the  desk  console. 


7.2  C02  LASER  POWER  SUPPLY,  MODEL  941 

7.2.1  a.c.  Power  Switch 

POWER  toggle  switch  controls  the  a.c.  power  to  the  C02  laser 
power  supply. 


7.2.2  Amber  Power  Lamp 

AMBER  POWER  LAMP  should  illuminate  when  the  POWER  switch 
has  been  turned  to  ON. 
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7.2.3  Interlock  Switch 

INTERLOCK  SWITCH  is  key  operated  and  provides  an  additional 
margin  of  safety  against  accidental  turn  on  of  the  CO2  laser. 

This  key  operated  switch  must  be  ON  for  the  high  voltage  to  be 
turned  on  in  the  power  supply. 

7.2.4  Interlock  Lamp 

INTERLOCK  LAMP  should  illuminate  (green)  when  all  the  system 
interlocks  have  been  closed. 

7.2.5  High  Voltage  Lamp 

HIGH  VOLTAGE  LAMP  should  illuminate  approximately  5  seconds 
after  all  interlocks  have  been  closed. 

7.2.6  Current  Adjust 

CURRENT  ADJUST  control  can  be  used  to  optimize  output  power. 
Under  normal  usage  it  should  not  require  adjustment.  If  the 
CURRENT  ADJUST  does  require  adjustment  see  the  C02  LASER  instruc¬ 
tion  manual  for  more  details. 


7.3  CLOSED  LOOP  COOLER  -  MODEL  400 

7.3.1  a.c.  Power  Switch 


The  a.c.  power  switch  for  the  closed  loop  cooler  is  located 
on  the  bottom  left  side  of  the  desk  console.  This  cooler  supplies 
water  to  the  CC>2  and  YAG  laser  for  cooling.  For  the  lasers  to 
operate  the  flow  of  water  through  the  cooling  system  must  be  main¬ 
tained.  Each  laser  has  a  pressure  switch  as  part  of  the  cooling 
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system  which  provides  an  interlock  which  determines  if  the  proper 
flow  of  water  is  present.  For  more  details  see  the  manual  included 
for  the  water  cooler  and  the  manual  for  each  laser. 

7.4  LASER  TRANSMISSOMETER  CONTROLLER 

7.4.1  Power  Switch 

This  two  position  switch,  OFF  and  ON,  controls  the  application 
of  d.c.  power  to  the  electronics  in  the  Controller,  all  d.c.  power 
to  the  Transmitter  and  the  Receiver. 

7.4.2  Gain  Switch 

The  HIGH  gain  position  provides  an  additional  gain  of  16  after 
the  preamplifiers.  In  the  LOW  gain  poisiton  the  signal  is  coupled 
directly  to  the  drivers  from  the  preamplifiers  with  a  gain  of  1. 
With  the  switch  in  the  AUTO  position  the  computer  will  select  which 
gain  factor  to  use  based  on  the  amplitude  of  the  signal.  See  the 
software  section  of  this  manual  for  the  parameter  which  sets  the 
level  of  the  signal  upon  which  a  gain  change  is  executed.  This  3 
position  switch  allows  the  operator  to  remotely  control  the  gain 
of  the  three  signal  channels  of  the  receiver. 

7.4.3  Time  Constant 

This  is  a  two  position  switch  which  selects  either  a  10 
millisecond  or  1  second  time  constant  for  the  signals  on  the  bnc 
connectors  located  on  the  front  panel.  The  computer  only  samples 
the  signal  with  the  1  second  time  constant  therefore  this  switch 
does  not:  affect  the  data  as  printed  and  recorded  by  the  computer. 
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There  are  six  bnc  connectors  on  the  front  panel.  The  connectors 
are  labeled  as  follows  TRANSMITTER:  CHI,  CH2  and  CH3  which  correspond 
to  the  transmitted  He-Ne,  YAG  and  CO^  signals  respectively  and 

RECEIVER:  CHI,  CH2 ,  and  CH3  which  correspond  to  the  received 

He-Ne,  YAG  and  C02  signals  respectively. 


APPENDIX  A 
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FINIT 


a)  Sets  up  all  parameters  and  dimensions 
all  arrays. 

b)  Checks  status  and  operation  of  the 
mul ti programmer . 

c)  Check  Status  of  the  printer. 

d)  Sequentially  calls  the  various  sub¬ 
routines  to  get  the  necessary  user 
supplied  values. 

Software  tape  File  1  —  user  supplied 

values. 


N,  r8  14  inclusive,  S$ 

All  arrays  and  string  variables  dimensioned. 
Print  buffer,  'BUF' ,  allocated. 


None 


MP  TEST  FCAL 

onerc  F1NTERVAL 

nomp  (on  error)  FHEADER 
FSTOD  FTAPE 


gsb  'FINIT' 


Part  in  File  j?  and  part  in  File  2. 


A-l 


Block  Enlintrrinl,  Inc 


Program  Name: 


FTERMINATE 


Purpose :  This  routine  sets  Flag  11,  the  terminate 

flag.  If  called  during  a  data  run  ('FRUN'), 
the  program  exits  gracefully,  resetting 
the  various  flags,  parameters,  and  system 
commands.  In  File  0,  the  terminate  flag 
haults  operation  of  FDLIST  and  FREPLOT. 


Input; 


None 


Output : 


Flag  11 


Dummy  Variables:  None 


Subroutines  Required:  None 


Calling  Sequence:  Special  function  key  £10. 


Location: 


File  0,  File  2. 
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5 


Program  Name:  FGTOD,  GTOD 

(Entry  point  GTOD  is  the  display  portion 
only. ) 

Purpose:  If  FLG  10-1}  FGTOD  complements  FLG  9, 

thereby  enabling/disabling  the  time  dis¬ 
play  during  SCAN  if  FLAG  10  =  0;  FGTOD 
reads  the  counter  cards,  derives  the  time, 
and  displays  it. 


Input: 


Multiprogrammer  Counter  Cards  — 
fig  10 


Output:  fig  9 

DISPLAY 

Til],  T  [2  ]  ,  T  [3] ,  T  [53 
Dummy  Variables :  A 


Subroutines  Required:  READCOUNT 

DRVTIME 


Calling  Sequence: 

Special 


gsb  'FGTOD' 
function  key  f3 


gsb  'GTOD' 


Location : 
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READCOUNT 


Program  Name: 


Purpose : 


Reads  the  multiprogrammer  counter  cards. 


Input: 


Multiprogrammer  Counter  Cards. 


Output: 


Dummy  Variables: 


Subroutines  Required:  None 


Calling  Sequence:  gsb  'READCOUNT' 


Location: 


File  0,  File  2 
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Program  Name; 


DRVTIME 


Description: 


a)  Derives  from  T[5],  the  time  in  seconds, 
the  values  of  T [13  (hours),  T[2] 
minutes,  T[3]  seconds. 


Input: 


T  [5  ] 


Output: 


T [1 ]  T[2]  T  [31 


Dummy  Variables:  A 


Subroutines  Required:  None 


Calling  Sequence:  gsb  'DRVTIME' 


Location: 


File  0,  2. 
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Program  Name; 


FSTOD 


Purpose;  Operator  input  of  time  and  date.  The 

counter  cards  of  the  multiprogrammer  are 
set  to  the  time  in  seconds. 


Input: 

Time : 

T[l] 

T[3] 

,  hours;  T[2],  minutes; 
,  seconds. 

Date : 

D[l] 

D[3] 

,  Month;  D  [2 ]  ,  Day; 

,  Year 

Output: 

To  counter 

cards;  D[l],  D[2],  D[3] 

Dummy  Variables: 

T[l], 

T[2]  , 

T[3],  A 

Subroutines  Required:  READCOUNT 

DRVTIME 

SET 


Calling  Sequence:  gsb  'FSTOD' 


Location: 


File  0 
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Program  Name: 


SET 


Purpose; 


Sets  the  counter  cards  of  the  multiprogrammer. 


Input: 


Function  subroutine  value; 
ell  ' set'  (  +  ) 


Output: 


Counter  cards 


Dummy  Variables;  pi,  p2 


Subroutines  Required:  None 


Calling  Sequence:  ell  'set'  (  ) 


Location: 


File  0 
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Program  Name :  FPRINT 


Purpose: 


During  a  data  RUN  FPRINT  ENABLES/DISABLES 
the  printer. 


Input: 


Special  function  key  f8. 


Output: 


Flag  5 


Dummy  Variables:  None 


Subroutines  Required:  None 


Calling  Sequence:  Special  function  key  f8. 


Location: 


File  0,  File  2. 
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Program  Name : 


PRINT 


Purpose:  a)  Checks  if  the  next  output  to  Printer 

— —  is  a  hea(jer  text  or  a  plot  line. 

If  a  header,  the  program  is  switched 
to  Printheader. 

If  a  data  plot  line,  the  transmission 
values  are  ordered  by  increasing  value, 
a  scaling  is  determined,  and  the  pro¬ 
gram  goes  to  Printline. 


Input: 


P[,]  ,  Q [  ],  PRINTBUFFER  STATUS,  r0 ,  rl, 
r3,  r8,  r9 . 


Output : 


rl,  E,  F,  J,  G [  1,  Q [  ],  PRINTBUF  ' PBF 1 


Dummy  Variables:  A,  B,  I,  K 


Subroutines  Required:  (gto)  PRINTHEADER 

(gto)  PRINTLINE 
(gsb)  PRTSCALE 


Calling  Sequence:  gsb  'PRINT' 


Location: 


File  0,  File  2 
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PRINTLINE 


Prints  a  plot  data  line  to  the  printer. 


I[  1,  P[  ],  E,  F,  J  Formats  #2,3 


rl,  r3,  PRINTBUFFER  1 PBF 1 ,  PRINTER 


A,  B,  I 


None 


gto  PRINTLINE  called  from  Print. 


File  0,  File  2 
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Program  Name; 


PRINTHEADER 


Purpose: 


Prints  a  header  text  to  the  Printbuffer 
and  Printer. 


Input: 


Flag  5,  D[  ],  H$  S$  [  ],  rl4,  P,  T,  U,  V, 
Formats  4,  5,  6,  7,  8 


Output: 


PRINTBUFFER  ' PBF* ,  PRINTER 


Dummy  Variables:  None 


Subroutines  Required:  None 


Calling  Sequence:  gto  'PRINTHEADER' 


Location: 


File  f! ,  File  2. 
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FORMAT 


Program  Name: 


Purpose : 


Sets  up  the  formats  for  printout 
(HEADER  and  PLOTLINE) . 


Input; 


None 


Output : 


Dummy  Variables: 


Formats  2  through  9. 

Note:  FORMAT  0  is  left  a  free  field; 

FORMAT  1  is  set  before  use. 

None 


Subroutines  Required:  None 


Calling  Sequence:  gsb  'FORMAT' 


Location: 


File  0,  File  2. 
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Program  Name : 


WRITE 


Purpose: 


Writes  header  file  or  data  file  to  tape. 


Input:  Status  of  tape,  r4,  r5,  r7,  rl2,  rl3,  N,  P, 

R,  T,  U,  V,  D [  ],  S$,  W$,  C[,],  H$ 

Output:  Tape,  r J2T ,  r5,  r7,  R,  T,  U,  V 


Dummy  Variables:  I,  J,  0$ 


Subroutines  Required:  None 


Calling  Sequence:  gsb  'WRITE' 


Location : 


File  2 


A- 13 


Block  Enfinrerinf,  Inc. 


FMARK 


Program  Name: 


Purpose: 


Mark  a  blank  tape  with  data  file  format. 


Input : 


rl0,  rll 


Output: 


Flag  8 ,  TAPE 


Dummy  Variables:  I 


Subroutines  Required:  None 


Calling  Sequence:  gsb  'FMARK' 

Special  function  key  f4 

Location:  File  $ 
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■ifcOmmuiM  MUmi 


J 


Program  Name; 


FDLIST 


Purpose: 


Lists  previously  written  header  tape 
files  to  the  printer. 


Input: 


Tape,  Operator  input  of  TRACK 


Output : 


Printer 


Dummy  Variables:  I,  R,  fig  4,  fig  5,  fig  11 


Subroutines  Required: 


FORMAT 

GETHEADER 

DECODE 

PRINTHEADER 


Calling  Sequence:  gsb  'FDLIST' 


Location: 


File  0 
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GETHEADER 


Checks  successive  tape  files  for  a  header 
file. 


TAPE,  R,  rl0 


I,  R 


None 


CHECKPILE 


gsb  'GETHEADER' 


File  0 
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Program  Name:  CHECKFILE 


Purpose : 


Checks  a  tape  file  to  verify  that  it  is 
the  correct  type  and  size  of  file. 


Input:  TAPE 


Output :  I,  0$ 


Dummy  Variables:  J,  K 


Subroutines  Required:  None 


Calling  Sequence:  gsb  'CHECKFILE1 


Location: 


File  0 
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Program  Name; 


DECODE 


Purpose : 


Input : 


Output : 


Derive  from  a  header  tape  file  loaded 
into  0$,  the  original  inputs. 


None 


N,  P,  T,  V,  Cl,]  ,  D  [  ]  ,  S$,  H$ 


Dummy  Variables: 


A,  I,  J 


Subroutines  Required:  None 


Calling  Sequence:  gsb  ’DECODE' 


Locat ion: 


File  J? 
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SCAN 


a)  SCAN  updated  T[l],  T[2],  T[3]  (hours, 
minutes,  seconds)  from  T[5]  (time  in 
seconds  at  next  SCAN) . 

b)  SCAN  then  continually  reads  the  counter 
cards  until  their  value  is  equal  to 
T[5], 

c)  And  then  sets  the  relays;  starts  and 
reads  the  analog  to  digital  converter 
(Voltage  Monitor  Card) ;  for  each  of 
the  13  channels.  Note:  If  the  number 
of  channels  increased,  the  parameter  N 
must  be  changed  and  this  routine  must 
be  modified. 

Current  time  (via  Counter  Cards) 

T  [5  ]  C[1,I],  C  [2 , 1  ] 

fig  9 

M  [  I  ]  (I  =  1,  13) 

T [1]  (I  =  1,  3) 

A,  B,  I,  J,  K,  rl4,  fig  9 


DRVTIME 

READCOUNT 


gsb  'SCAN' 


File  2 
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Program  Name: 


CALIM 


Purpose: 


Check  transmitter  side  of  the  laser 
channels . 


Input: 


Ml  ] 


Output : 


E[  } 


Dummy  Variables:  I ,  J 


Subroutines  Required:  None 


Calling  Sequence: 


gsb  'CALIM' 


Location: 


File  0,  File  2 
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Program  Name: 


AVERAGE 


Purpose : 


Averages  values  into  the  avered  array 

A [  ). 


Input: 


At  ],  M[  ],  N 


Output : 


At  ] 


Dummy  Variables:  I 


Subroutines  Required:  None 


Calling  Sequence:  gsb  'AVERAGE' 


Location: 


File  2 
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Program  Name: 


STACK 


Purpose; 


Stacks  values  in  the  Write  Buffer  array 
W$  and  the  Print  Buffer  array  Pt  ]. 


Input: 


C,  P,  V,  T [  ],  N,  r2 ,  r3 ,  r4 ,  r5,  r6 , 
r7,  rl2 ,  rl3,  fig  5 


Output: 


c,  r4 ,  r6 ,  W$,  Pi,] 


Dummy  Variables:  P0,  pi,  P^r  I 


Subroutines  Required:  CALTRANS 


Calling  Sequence:  ell  'STACK' 


Location: 


File  2 
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Program  Name: 


CALTRANS 


Purpose: 


Calculates  transmission  for  Printout 


Input:  A  [  ],  E  [  ],  T  [  ],  rff ,  rl,  r2 ,  r8,  r9 


Output :  P[  ],  Qt  ],  r2 ,  r0 


Dummy  Variables:  p0 


Subroutines  Required:  None 


Calling  Sequence:  ell  'CALTRANS' 


Location: 


File  0,  File  2 
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I 

Program  Name: 


FCAL 


Purpose; 


Operator  input  of  the  calibration  con¬ 
stants  for  the  N  channels. 


Input: 


KEYBOARD,  S$  [I  ]  ,  C  [  1 , 1  ]  ,  C[2,I] 


Output: 


C[1,I],  C  [2 , 1 ] ,  (I  =  1  to  N) 


Dummy  Variables:  I 


Subroutines  Required:  None 


Calling  Sequence:  File  0:  gsb  "FCAL" 


Location: 


File  0 
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Program  Name: 


FHEADER 


Purpose : 


Input: 


Output : 


Operator  input  of  header  text  for  printout 
and  header  tape  file. 


Operator  input  of  80  characters. 


Dummy  Variables:  G$,  I,  J 


Subroutines  Required:  None 


Calling  Sequence:  gsb  'FHEADER' 


Location: 


File  0  and  File  2 
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Program  Name:  MP  TEST 

Purpose:  Tests  the  multiprogrammer 

a)  Counter  Cards 

b)  Relays 

c)  Voltage  Monitor  (analog  to  digital 

converter) . 

Input:  Multiprogrammer 


Output:  Stops  on  error  in  Relay  or  Counter. 

Displays  reading  for  A/D  Converter  for 

0  volts  in 
5.2  volts  in 

if  not  within  least  significant  bit. 
Dummy  Variables :  A,  B,  1,  J,  p0 

Subroutines  Required:  gsb  ' READCOUNT' 


Calling  Sequence: 


Cll  1 MP  TEST' 


Location: 


File  0 
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"mm*  wm*  m 


m iw 


READ  A/D 


Sets  the  relays  and  cycles  the  voltage 
monitor  card  (analog/digital)  converter. 
The  reading  is  returned  in  B. 


I  (Channel  #  l->-17),  G 


B 


A,  J,  K 


None 


'READ  A/D’ 


File  0,  File  2 
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A  Dummy  Variable  (Local  use  only) 

B  Dummy  Variable  (Local  use  only) 

C  Scan  Count 

D 

E  Plot  Scale  Limit  (Maximum) 

F  Plot  Scale  Limit  (Minimum) 

G  Gain  of  Receiver  Channels  :>(  =1  or  =16) 

H 

I  Dummy  Index  (local  use  only) 

J  Dummy  Index  (local  use  only)' 

K  Dummy  Index  (local  use  only) 

L 

M 

N  Number  of  Channels 

0 

P  Integration  Interval 

Q 

R  Current  File  #  (Tape) 

S  Count  of  Scans  (For  writing  to  Printer) 

T  Tape# 

U  Track# 

V  Volumn# 

W 

X 

Y 
Z 

rO  Fill  index  into  Q  [  ] 

rl  Take  index  into  Q  [  ] 

r2  Fi? 1  index  into  P  [  ,  ] 

r3  Take  index  into  P  [  ,  j 

r4  Fill  index  into  X  [  1 

r5  Take  index  into  X  [  ] 

r6  Fill  index  into  W$[  ,  ] 

r7  Take  index  into  W$  [  ,  ] 

r8  #  of  rows  of  P[  ,  ] 
r9  #  of  rows  of  Q(  ) 
rlO  Files  per  Track 
rll  Bytes  per  File 
rl2  #  of  rows  of  W$ [  ,  ] 

rl3  #  of  rows  of  X {  ] 

r]4  Single  Scan  time  in  seconds  (One  scan  is  N  channels) 


Hi  x  S  <  G  HMSJODOZSPX^HSOlHDOaO 


Array  Variables 

[N]  Averaged  values  of  M[  3 

[2,N]  Calibration  constants  for  each  channel 
[3]  Date  D[l]=Month  D[2]=Day  D[3]=Year 

[3]  Channel  Error 

[2]  Averaging  Fractions  F[l]  =  l-F[2} 

[3]  Scale  values  for  plot  and  update  count  for  scale  change 

[4]  Dummy  array  Local  use  only 

[3]  Last  measured  values  of  laser  channel 

[N]  Measured  values  for  each  channel 


[r8,N-3]Print  array 

[r9]  Print  request  array 


[5]  Time  T[l]=Hours  T[2]=Minutes  T[3]=Seconds  T[4]=Time  in  Seconds 

T[5]=Time  in  Seconds  for  next  scan 


[rl3]  Write  Request  array 


String  Variables 


A$ 

B$ 

C$ 

D$ 

E$ 

F$ 

G$ 

H$ [132] 

1$  [33 

J$ 

K$ 

L$ 

M$ 

N$ 

0$ 

p$  : : 
Q$ 

H$ 

S$[  ] 

T$ 

U$ 

V$ 

W$[  ,  ] 
X$ 


Temporary  header  text 
Header  text 

Characters  +  0  X  for  Plotting 


String  variable  for  Tape  I/O 


Channel  Names 


<3 


Write  Tape  Array 


Print  flag  monitor 

Print  Flag  enables  printer 


Flags 


1 

I  2 


1  :  i  8 

Tape  Ready  flag 

i  9 

Display  Time/Date  flag 

10 

Run  Flag 

11 

Terminate  Run  flag 

12 

Immediate  Execute  inhibit 

13 

Set  if  enter  not  satisfied 

1  14 

Not  set;  Stop  on  math  error 

15 

Set  on  Math  error 
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-■••"Pi' .-4 


0: 

Is 

2: 

3: 

4 : 
5: 
6: 
7: 
8: 
9: 
10: 
11: 
12: 
13: 
14: 
15: 
16: 
17: 
18: 
19: 
20: 
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22: 
23: 
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25: 
26: 
27: 
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29: 
30: 
31: 
32: 
33: 
34: 
35: 
36: 
37: 
38: 
39: 
40: 
41: 
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44: 
45: 
46: 
47: 
48: 
49: 
50: 
51: 
52: 
53: 
54: 
55: 
56: 
57: 
58: 
59: 


0  MRU  6/14/78": 


"Software  file 
gto  "FI NIT" 
gto  "FMARK" 
gto  "FCAL" 
gto  "FREPLOT" 
gto  "FDLIST" 

"FINIT" : 

ldk  l;fxd  0;trk  0 

13-N; 3-r8; r 8+1-r 9 ; 290-r 10 ; 320-r 11 ; 5-r 12 ; rl2+l-r 13 ; 2+r 14 
dim  AlN],C[2,N],D[3],El3],Ff2],G]3],I[3J,M[N],Lf3],P[r8,N] 
dim  Q ( r9 ) ,T[5] ,X[rl3] ;buf  "PBF"  ,800, 0 

dim  G$f80] ,H$(132] , I  $ f 3] ,0$ f r 11 ] , S$ [N , 8 ] , W$ f rl2 , r 11] ;rll+8-rll 


"HeNe  Ref "♦S$ [ 1 J 
"YAG  Ref  "♦S§ | 2] 
"C02  Ref  "♦S$  f  3) 
"  Temp.  "♦S$  [ 7 ] 


HeNe 
YAG 
CO  2 
Pres. 


"  ♦  S  $  ( 4  ] 
"*S$ I  5 ] 
"+S$ I  6] 
" ♦S$  f  8 ) 


" Rel . Hum . "♦S$ [ 9] ; "WindDir . "♦S$ 110] 


"Wind  Sp."< 
time  500 


SSfll]  ;  "RainRate"-*-S$  [12] ;  "Tot .Rain"-S$  [  13] 


on  err  "nomp" 

ell  'mp  test' 
gsb  "onerc" 
gsb  "FSTOD" 
gsb  "ATEST" 
gsb  "FCAL" 
gsb  "F INTERVAL" 
gsb  "FHEADER" 

6+A;gto  "OTHERFILE" 

"nomp":if  rom=69;if  ern=4;dsp  "Multiprogrammer  not  on.";stp 
dsp  "Error  " ,char ( rom) ,ern , "on  line" ,er 1; stp 
"onerc" :on  err  "noer" 

1/0+A 

"noer" : ret 
"FGTOU" : 

if  flgl0;cmf  9; ret 
gsb  "READCOUNT" 

A+T[5] jgsb  "DRV TIME " 

"GTOD " : 

fmt  1 , f  z2 . 0 , " :" ,fz2.0," :" ,f z2 . 0 , 6x , f z2 . 0 , "/" ,fz2.0,"/" ,f z2. 0  ,6x ,f z3 . 0 
wrt  .1,T[1] ,Tf2] ,Tf3] ,0(1] ,D  r 2] ,Df3] , I ; re t 
"READCOUNT" : 

moct;wtb  9,170240;wti  0,ll;wti  4,10000;rdi  4-*A;wti  4,20000;rdi  4*B;mdec 
otdA+4096*otdB+A;  ret 
"DRVTIME"  : 

T(5]mod60-T[3] ; ( (T [ 5] -T ( 3 ] ) /60-A) mod60+T[2] ; ( A-T [ 2 ] )/60mod24-Tf 1] ; ret 
"FTERMINATE" : 

dsp  "Terminate" ; sfg  11; ret 
"FPRINT" : 

if  not  flgl0;sfg  5;ret 
cmf  5;ret 
" FCAL" : 

if  C [ 1,1 ] #0 ;g to  "CALQ" 

for  1=1  to  6;l*Cfl,I];0>C]2,I] ;next  I 

8-C[l,7] ;-3U*C(2,7] 

13.54556-C|1,8] ;  948 .1892-C[2 ,8] 

10-C[1,9] ;0-C(2,9] 

54-CI1, 10]»0*C|2, 10] 

16 ,09344*C| 1,11] ;0*C|2,11] 

1-C|1,12J;0-CI2,12] 

25.4-C[l,13];0-C(2,13] 

"CALu":ent  "Update  CAL  values?  (0=no,l=yes)  ",A 
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6 0:  if  A=0;gto  "calacne" 

61:  dsp  "Input  A,B  (y=Ax+B)  for  each  chan";wait  3000 
62:  dsp  "To  Keep  old  value , CONTINUE" ; wait  3000 
63:  for  1=4  to  6 

64:  dsp  S$[I],"  A  " ,C[1,I] ;ent  "",C[1,IJ 

66:  next  I 

66:  for  1=7  to  N 

67:  dsp  S$[I],"  A  " ,C [ 1 , 1 ] ; ent  "",Cfl,I] 

68:  dsp  S  $  1 1 ] , "  B  “ ,C( 2 , 1 1  ;  ent  "",Cf2,I] 

66:  next  I 

70:  "caloone":if  A=0;dsp  "CAL  complete" ;ret 

71:  0-Ajent  "Repeat  CAL  ?  (0=no , l=yes ) " , A; if  A=l;gto  " FCAL" 

72:  gto  "caldone" 

73:  "FSTOD": 

74:  gsb  "READCOUNT" 

75:  A*T[5];gsb  “URVTIME " 

76:  gsb  "GTOD" 

77:  dsp  "Hours?" ,T[ 1] ; ent  "",T[l];dsp  "Minutes?" ,T [2]  ;  ent  "",T(2] 

78:  dsp  "Seconds?" ,T[ 3] ; ent  "",T[3] 

79:  ell  'SET' (3600*Tf 1] +60*T[2] +T f 3] ) 

80:  osp  "Month?" ,D[1] ;ent  "",D[l];osp  "Day ?" ,D | 2] ; ent  ”",D[2] 

81:  dsp  "Year?" ,Df3] ;ent  "",D[3];ret 
82:  "FINTERVAL" : 

83:  dsp  "no.  of  scans  to  average  ?" ;ent  "",P;if  P<=0;jmp  0 

84:  ret 

85:  "FHEADER" : 

86:  dsp  "Current  HEADER  :";wait  1500 ;dsp  G$ 

87:  ent  ""  ,G$ 

88:  "GHEAUER" :len(G$) -I; int( (132-1 )/2) *J ; "  " *H$ ( 1 , 132] ;G$ [ 1 , I ] | J , J +1 ] ;ret 
89:  "SET": 

90:  int (pi/ 409 6) ♦p2;dto(pl-4096*p2) *pl ;dtop2+p2 
91:  moctjwtb  9 ,170040 ,10000+pl,20000+p2;mdec;ret 
92:  "MP  TEST": 

93:  gsb  "READCOUNT" 

94:  A-I;wait  1500, -gsb  "READCOUNT" 

95:  A —I ♦A ; if  not  (A=l  or  A=2);dsp  "Read  Counter  Error" ;stp 
96:  for  1=40000  to  60000  by  10000 ; 1+A; moct; for  J=1  to  12 
97:  wtb  9 , 170160 , I , I+A 

98:  wtb  9,17024Q;wti  0,ll;wti  4,I;rdi  4+B 
99:  wtb  9,170160,1 

100:  if  A-B#0;mdec;osp  "Relay  Error  at  slot" , 1/10000 ," relay  bit",J?stp 
101:  shf (A, -1 ) *A; nex t  J;next  I;fxd  3 

102:  17*1;  'READ  A/D '-p0; if  prna (p0 ,-l ) #0 ;dsp  "A/D  off  set" ,p0,"  ABORT";stp 
103:  16*1; 'READ  A/D'*p0;if  p0>5.4  or  p0<5;dsp  "A/D  READS" ,p0 ," ABORT" ; stp 
104:  fxd  U;ret 
105:  "FMARK" : 

106:  if  rl0=0;dsp  "Must  INIT  befor  MARK" ; stp 
107:  dsp  "Load  blank  tape,  CONTINUE" ; stp 
108:  rew;trk  0;cfg  8;on  err  "fmarka" 

109:  "fmarkc":fdf  0;idf  I, I, I, I 

110:  if  l#0;dsp  "Not  a  blank  tape... MARK  aborted" ;stp 
111:  idf  I,I,I,I,I;it  l#0;gto  "fmarkb" 

112:  "f mar ka" :rew; tr k  l;on  err  "fmarkb" ;gto  "fmarkc" 

113:  "fmarkb":on  err  "fmarkd" 

114:  rew;mrk  rl0,rll;ert  rl0;rew;trk  Q;mrk  rl0,rll;ert  rl0;rew 
115:  gsb  "onerc" 

116:  dsp  "MARK  complete "; stp 

117:  "fmarkd" :if  ern=42;if  rom*0;dsp  "TAPE  WHITE  LOCKED!" ;stp 
118:  gto  "fmarkb" 
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119: 
120: 
121: 
122: 
123: 
124: 
125: 
1 2o : 
127: 
12B: 

1 2  v  : 

1JU: 

131: 

132: 

133: 

134: 

135: 

136: 

137: 

138: 

139: 

140: 

141: 

142: 

143: 

144: 

145: 

146: 

147: 

148: 

149: 

150: 

151: 

152: 

153: 

154: 

155: 

156: 

157: 

158: 

159: 

160: 

161: 

162: 

163: 

164: 

165: 

166: 

167: 

168: 

169: 

170: 

171: 

172: 


-PHI NT”  : 

riis  (  "PbF")  ♦A;  if  A>0;tfr  "PBF" ,6 ; ret 

if  A<0;ret 

if  f lg^= f lg5 ; jmp  2 

if  t lg  4 ; cf g  4;wrt  "PBF" /'Output  to  printer  halteu";wtb  "PBF", 10 
it  r0-rl=u;ret 

it  w [ r lmour 9  +  1 ) =1 ; 1+r 1* r 1; g to  " PRInTHEAuER" 

it  not  flg4;wrt  "PbF" /'Continuation  of  printed  output" 

r  3moar6  +  l-J  ;inin  (Pi  J  ,1)  ,P|J,2],P[J,3])-*-B 

tor  1=1  to  3; if  B#P ( J , I ]  ;  next  I 

1*1  (11;  it  P  (J  ,  1 11.00  3+ 1*1 -I  [  2]  ]  >P  [  J,Imori3+l-*-I  [  3]  ] ;  I  f  3]  *1  [  2)  ,*  1*1  [  3] 

P  |0  » I  I  3  ]  )  *A;  it  A < 0 ;  a g p  "unable  to  Scale"  ; O+B+F ;  1+A+E  ;  g to  "PRINTLINE" 
it  b<U;PiJ ,1 12) ]*B;  it  B <0 ; P  I J , I | 3) j *6 
A*K;xt  K> ( prnu (A , -1 ) ♦A) ;A+ . 1*A 
b-»K;if  K< (prna (b  , -1) ♦B)  ;b- . 1*B 

if  A=B;B-.1*B 

if  L=F ; A*E ; b*F;g to  " PRTSCALE" 

if  A=E  ana  o*F; E*G | 1J ; F*G ( 2] ; 0+Gf 3] ;gto  "PRINTLINE" 

if  A>E  or  b<F ; max (A , E ) ♦E*G ( 1  ] ;  min  (B  ,F )  -*-F+G  f  2] ;  0+G  (  3 ]  ;  g to  "PRTSCALE" 
if  G  [  3  ]  =0 ;  A+G  [  1] ;b-G|2] ?  G  f  3 ) +1-G | 3 1 
G|3]+l-*G|3);max(A,G|lJ ) *G ( 1] ; min (B ,G [ 2] ) -G [ 2) 
it  G  |  3 ) »  6;g  to  "PRINTLINE" 

0-G |3]; if  G 1 1 J  =E  ana  G(2]=F;gto  "PRINTLINE" 

G ( 1 ) ; G | 2 ] +F 

"PRTSCALE" : stg  4;fmt  1 , f 4 . 1 , 43x , f 5 . 1; wr t  "PBF.1",F,E 
"PRINTLINE" : if  not  £lg4;]mp  -1 
wtb  "PBF"  ,27,79,0,10,0,0 

4 7  2/ ( E-F) *b ; wtb  "PbF" , 2 7 , 8 4 , 27 , 70 , 0 , 0  ,  "  I" 
tor  1=1  to  3;if  P 1 J , I ( I J j <0 ; grap  2 

(P[J,I [I] J-F)*B-A;wtb  "PbF" ,27,65, int (A/6  4) , i nt ( A)  ,  0 , 0 , 1  $ [ I [ I ]  ,  I [ I ] ] 

next  I; wtb  "PBF" ,27 , 6 5 , int ( 472/6 4 )  ,472,0, 0, "  |  " 

f mt  1 , 3x , f z2 . 0 , " : " , f z2. 0  ," : "  ,fz2.0,4x,z 

wr t  "PBF.1",P(J  ,4)  ,P[J,5)  ,P[J,6) 

wrt  "PBF.  2"  ,PfJ,lJ  ,P(J  ,2]  ,P|J,3)  ,P[J,7]  ,P|J,8] 

wr t  "PBF. 3" ,P[J ,9] ,P[J ,10] ,P (d ,11] ,P [J,12) ,P [J,13] 

tfr  "PBF" ,6 ; r 3+1+r 3; r 1+1+r 1; ret 

"PRiNTHEAUER" : 

if  flg5;fmt  1 ,62x , "Transmissome ter  Data  Input  Record" ,/; wr t  "PBF.l" 

wrt  "PBF. 4" , D ( 1 ] ,0(2] , D ( 3 ] 

wrt  "PBF","  " ,H§; wr  t  "PBF" 

wrt  "PBF . 5" ,T,U ,V ,P*  r 14 

if  not  flg5;tfr  "PBF", 6; ret 

wrt  "PbF. 6" 

wrt  "PBF. 7" ,S$(7] ,S$[8] ,S$t9J ,S?[10] ,S$I11] ,S$[12] ,S$[13] 
wrt  "PBF . 8 " ; wr t  "PBF. 9", -tfr  "PBF",6;ret 
" FORMAT" : 

fmt  2,f5.2,4x,f5.2,4x,f5.2,2x,£5.1,3x,£6.1,7x,z 
fmt  3,f4.1,7x,f4.0,4x,f7.2,5x,£6.2,6x,£5.2,z 
fmt  4,75x,fz2.0,"/",fz2.0,"/",fz2.0 

fmt  5 ,49x  /’Tape" ,f 6. ,"  Trk",f6.,"  Vol",f6.,"  Every", £6.,"  Seconds",/ 

fmt  6 ,18x /’Transmission" ,24x,"Time" ,1 lx , "Transmission" ,7x,z 

fmt  7,c8,lx,c8,lx,c8,3x,c8,3x,c8,3x,c8,3x,c8 

fmt  8 ,5 2x , "Hr : Mn : Sc" ,2x,"HeNe(+) " ,2x,"YAG(X) " ,3x,"C02(0)" ,z 

fmt  9 , 3x , "aeg  C" , 7x ,"mb" , lOx ," fc" ,8x , "deg" ,8x ," kph" ,6x ," cm/hr" ,9x,"cm" 
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173:  ret 

174 :  "FREPLOT" : 

175:  0-*-Ell]-E(2J«-E[3]-E+F->G[l)*G(2]-G[3J-rG«-rl-r2+r3 
176:  asp  "Load  aata  tape  and  CONTINUE" ; stp 
177:  gsb  "FORMAT" 

178:  sfg  4;sfg  5;cfg  11;  rew;  0*R;  0-*U;  gsb  "GETHEADER" 

179:  if  l=-l;ret 
180:  stf (0$[5, 8J )*T 

181:  fxa  0 ; dsp  "Tape",T,"  Track  (0  or  l)=?";ent  ""  ,u 
182:  if  U=0  or  U=l;3mp  2 
183:  jmp  -2 

184:  dsp  "Vol.  to  Decoae=?" ; ent  "",B;if  B<l;jmp  0 
185:  if  U#  0 ; tr  k  u;gsb  "GETHEADER" 

186 :  "HOT YET" :stf (0$ [ 9 ,12) ) -V 
187:  1+R+R ; it  a=V;gto  "REPLOT" 

188:  gsb  "GETHEADER" 

189:  if  I=-l;ret 
190:  gto  "NOTYET" 

191:  "REPLOT" :gso  "DECODE" 

192:  l+0f ( (r 0+1+ru) -l)moar9+lJ ;gsb  "PRINT" 

193:  for  R=R  to  rlO-l;gsb  "CHECKFILE" 

194:  if  l<=0;fmt  1 ,/,"Unexpectea  termination" ;gto  "ENDPLOT" 

195:  stf (08 {5, 8] ) ♦T[ 5] ; 9+S;gsb  " DRV TIME" 

196:  for  C=1  to  6 

197:  2+0( ( (rO+l+rO) -l)moar9+l] 

198:  for  K=1  to  N ; stf (0? [S , S+3] ) +A [ K] ; S+4-S 
199:  if  A (1 ] =-12345; fmt  lf/;gto  "ENDPLOT" 

200:  next  K 
201:  gsb  "CALIM " 

202:  ell  'CALTRANS' 

203:  if  flgll;tmt  1,/, "Replot  Terminated" ;gto  "ENDPLOT" 

204:  if  rds("PBF")<0; jmp  0 

205:  gsb  "PRINT"  a 

206:  T[5] +P*rl4*T[5] ;gsb  " DRVTIME" 

207:  next  C;next  R;fmt  1,/ 

208:  "ENDPLOT" :if  ras ( " PDF " ) <0 ; jmp  0 

209:  wrt  6.1;wrt  6, "Ena  Replot  Trk",U,"  Vol",V;ret 

210:  "GETHEADER": 

211:  for  R=R  to  rlO;fdf  R 
212:  gsb  "CHECKFILE" 

213:  if  l<=0;ret 

214:  next  R;asp  "Tape  Done" ;-l*i ; ret 
215:  "CHECKFILE": 

216:  idf  K,K,J;if  J=0;asp  "Tr ack " ,U , " F ile" , R, " is  empty" ;-l*I ; ret 

217:  if  J#rll;asp  "wrong  file  size" ;-l*I; ret 

218:  if  K#3;asp  "Wrong  file  type" ;-l-*-I ; ret 

219:  ldf  R,0$;itf  (0$|l,2J)*l;ret 

220:  "DECODE": 

221:  stf (0$ [ 5  »8 ] ) ♦T; stf (OS [ 9,121 ) -V ; stf (0$ [13, 16] ) -N; stf (0$ ( 17 , 20 ] ) -A 

222:  A-  (in t (A/10000) -DU J  )  *10000 -A ;  A-  (  int  ( A/100)  -D  f  2  J  )  *  100-D  (  3 J 

223:  stf (0$[21,24] ) /r 14-P ; 25 -J 

224:  for  1=1  to  N; 0$ [ J ,J  +  7) *S$ ( I ] ; J+8*J ; next  I 

225:  for  1=1  to  6 ; 1+C ( 1 ,1 ] ; 0-C ( 2 , IJ ; next  I 

226:  for  1  =  4  to  6 ;  stf  (0$  ( J  ,  J+3)  )  *C  ( 1 , 1 J  ;  J  +  4-*>J  ;  next  I 

227:  0$  f J , len(o$) -1] +HS; ret 
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228:  "FDLIST" : 

229:  dsp  "Load  data  tape  and  continue" ; ent  "",1 
230:  gsb  "FORMAT" 

231:  cfg  ll;cfg  5  ; revv; 0-»-R ; 0-*-U 
232:  "DLIST" :gsb  "GETHEADER" 

233:  if  I=-l;ret 
234:  gsb  "DECODE" 

235:  if  rds  ( "PBF" ) <0 ; jmp  0 
236:  if  flgil;ret 
237:  gsb  "PRINTHEADER" 

238:  l*R-R;gto  "DLIST" 

239:  "CALIM" :0+J 

240:  for  1=1  to  3;if  M[I]>.56;jmp  2 

241:  l+J-»J;if  E  [I  ]  =0  ;  1*E  [  I J  ;  dsp  "Channel"  ,  I ,  "Below  Threshold” 

242:  next  I; if  J=3;asp  "All  channels  below  threshold" 

243:  ret 

244:  "CALTRANS": 

245:  (  (r 2+l-*r2)  -1 ) modr 8+1+pO 

246:  for  1=1  to  3;if  E f I ) =1 ; -1*P [pO, 1 ] ; jmp  2 

247:  if  (C[ 1 , 1+3 J *A [I +3] /A [ I ] +P IpO , I ] ) >l;dsp  "Channe 1" , I , " needs  calibration" 

248:  T ( I ] +P ( pO , 1+3 ] ; next  I 

249:  for  1=7  to  N ; A [ I ] »P [ pO, I ] ; next  1 

250:  if  rl-r0>=r9;asp  "Print  Request  array  error" 

251:  2-»y[  (  (r0+l-*r0)  -l)modr9+l] ;  ret 
252:  "READ  A/D”: 

253:  60000+J ; if  G=16 ;  66000--J 

254:  moct;wtb  9  ,170040 , 40000 , 50000 ,J ; mdec 

255:  if  I<1  or  l>17;asp  "illegal  Relay  Channel" ; stp 

256:  if  I>=1  and  I<=6; 40000-A; I+B 

257:  if  I  >=7  and  I<=12  ;50000-»A;  I-6-B 

258:  if  I>=13  ano  I <= 17 ; 60000-A; I-12+B; if  G=16 ; 66000+A 

259:  3*K;moct;f or  J=2  to  B ; shf ( K , -2) ♦K; next  J 

260:  wtb  9, 170160, A+K;wtb  9,170260,30000,170240 

261:  wti  0,11;  wti  4,30000;rdi  4+B 

262:  wtb  9,170040 ,A;otdB-B; if  B>2047;fl-4096-B 

263:  .005*B-B 

264:  mdec; ret  B 

265:  " ATEST" : f xd  3;prt  "Channel  Volts" 

266:  for  1=1  to  N; 'READ  A/D'*M[I] 

267:  prt  S$ f I ] ,M f I ] ; next  I 

268:  spc  ;spc  ; spc  ;prt  "Given  trans=100%" 

269:  prt  "HeNe  CAL=" ,M [ 1] /M [ 4 J 
270:  prt  "YAG  CAL=" ,M ( 2 ] /M [ 5 ] 

271:  prt  "C02  CAL=" ,M( 3] /M[6J 

272:  spc  ;spc  ; spc  ;ret 

273:  "FRUN" :2*A;gto  "OTHERFILE" 

274:  "FTAPE" :3-A;gto  "OTHERFILE" 

275:  "OTHERFILE" :dsp  "Load  software  tape  and  CONTINUE" ; stp 

276:  ldf  2,0, A 

*13848 
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SOFTWARE  FILE  1,  SPECIAL  FUNCTION  KEY  DEFINITIONS 


fO: 

* 

run 

"FINIT" 

fls 

* 

cont  "FRUN" 

£2  : 

* 

gsb 

"FSTOD" 

f  3 : 

* 

gsb 

"FGTOD" 

f  4 : 

★ 

gsb 

"  FMARK" 

f  5 : 

* 

gsb 

"FTAPE" 

£6: 

* 

gsb 

" FCAL " 

f  7 : 

* 

gsb 

"FINTERVAL" 

f  8 : 

* 

gsb 

"FPRINT" 

f  9  : 

* 

gsb 

"FHEADER" 

f  10 : 

* 

gsb 

" FRERMINATE 

fils 

* 

gsb 

" FDLIST" 

£12 : 

* 

gsb 

"FREPLOT" 

f  18 : 

* 

gsb 

"ATEST" 
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0:  "Software  file  2  MRU  6/12/78": 

1:  "FINJLT"  :gsb  "nono"  ;l-*-A;gto  "OTBERFILE" 

2:  asp  "Loaa  aata  tape  ana  CONTINUE"  ;  stp  ;gto  "FRUN" 

3:  dsp  "Load  aata  tape  and  CONTINUE" ; stp  ;gto  " FTAPE" 

4:  gto  " FPRINT" 

5:  gto  "ATE ST" 

6:  " INITCON" : dsp  "Load  data  tape  and  CONTINUE" ; stp 
7:  ell  'FTAPE' 

8:  stp 

9:  "DRVTIME": 

10:  T[5]moa60-T[3]  ;  (  (T  [  5]  -T  [  3]  ) /60+A )  mou6 Q-*-T [ 2  J  ;  (A-T[2)  ) /60mod24-T ( 1]  ;  ret 
11:  "FGTOD" : 

12:  if  flgl0;cmf  9; ret 
13:  gsb  "HEADCOUNT" 

14:  A->T[5];gsb  "DRVTIME" 

15:  "GTOD"  : 

16:  fmt  1 ,  f  z2 . 0  , "  : "  ,  f  z  2 . 0  , "  : "  ,f z2 . 0 , 6x , f z2 . 0 , "/" ,f z2 .0 ,"/" ,£z2.0 ,6x,f z3.0 
17:  wrt  .l,T(lj ,T[2] ,T[3] ,D(1]  ,D [ 2 ] ,D[3]  ,I;ret 
18:  "FTERMINATE" : 

19:  dsp  "Terminate" ; sfg  11; ret 
20:  "FPRINT": 

21:  if  not  flgl0;sfg  5;ret 
22:  cmf  5;ret 
23:  "READCOUNT": 

24:  moct;wtb  9  ,170240;wti  G,ll;wti  4,10000;rdi  4-*-A;wti  4,20000;rdi  4-*B;mdec 
25:  otdA+4096*otdS-*A;  ret 
26:  "PRINT": 

27:  rds  (  "PDF" ) ♦A; if  A>0;tfr  "PBF" ,6; ret 

28:  if  A< 0 ; re t 

29:  if  f lg 4=f lg5 ; jmp  2 

30:  if  flg4;c£g  4;wrt  "PBF" , "Output  to  printer  halted";wtb  "PBF", 10 
31:  if  r0-rl=0;ret 

32:  if  0  I  rlmodr 9+1 J  =1;  1+r  l-»r  l;gto  "PRINTHEADER" 

33:  if  not  flg4;wrt  "PBF"  /’Continuation  of  Printed  output" 

34:  r  3modr8+l*J  ;min(P  [J  ,  1]  ,P[J,2],P(J,3])-*-B 
35:  for  1=1  to  3;if  B#P [ J , I ) ; next  I 

36:  1*1 (1] ; if  p  [J  ,imod3+l+I*I  [  2] ] > P [ J , I mod 3+ 1 ♦ I [ 3 ] ] ; I [ 3] -I [ 2] ; I  +  I [3] 

37:  P  I J  ,  I  [  3  ]  ]  ♦A;  if  A<0;dsp  "Unable  to  Scale"  ;  0-»-B-*-F ;  l-*-A-*-E  ;gto  "PRINTLINE" 

38:  if  B<0;P|J ,1 [2] ] ♦B ; if  B <0 ; P [ J , I f 3 ] ] 

39:  A+K;if  K>  (prnd  (A,-l) +A) ;  A+.1-*A 
40:  B-K;if  K< (prnd (B , -1) ♦B ) ; 6- .1*B 
41:  if  A=B ; B-. 1*8 

42:  if  E=F;A-E;B*F;gtO  "PRTSCALE" 

43:  if  A=E  and  B=F ; E-G [1] ; F*G f 2] ? 0*G { 3 ] ; g to  "PRINTLINE" 

44:  if  A>E  or  B<F  ;max  (A  ,  E)  •»E-G(  1  ] ;  min  (B  ,F)  ♦F+G  [  2  ]  ;  0*G  [  3]  ;  gto  "PRTSCALE" 

45:  if  G[3]=0;A-G[1J ;B-G(2] ; G [ 3 J  +1-G [ 3 } 

46:  G  [  3  J  +1-*G  f  3  ] ;  max  (A  ,G  ( 1]  ) -G  [  1 J ;  min  (B  ,G  [  2  ]  ) -G  f  2] 

47:  if  G [ 3] #6 ;g to  "PRINTLINE” 

48:  0-»G [ 3 ) ; if  G ( 1 ] =E  ana  G(2]=F;gto  "PRINTLINE" 

49:  Gfl]-E;GI2J-F 

50:  "PRTSCALE" : sfg  4;fmt  1 , f 4 . 1 , 43x , f 5 . 1 ; wr t  ”PBF.1",F,E 
51:  "PRINTLINE" : if  not  £lg4;gmp  -1 
52:  wtb  "PBF" ,27,79,0,10,0,0 

53:  472/(E-F)-B;wtb  "PBF" ,27 ,84  ,27,70,0,0,"  I" 

54:  for  1  =  1  to  3; if  P I J , 1 1 1 ) j <0 ; ]mp  2 

55:  (P|J ,1 [I] J-F) *B-A;wtb  "PBF" , 27 , 6 5 , in t ( A/6  4 ) , int (A ) , 0 , 0 , 1  $ [ I [ I ]  ,  I [ I ] J 
56:  next  l;wtb  "PBF " ,27 ,65 , int (47  2/64) ,4  72 ,0 , 0 , " I " 

57:  fmt  1 , 3x  ,  f  z2 . 0  ,"  : "  ,f  z2 . 0  ,"  :"  ,  f  z2 . 0 , 3x  ,  z 
58:  wrt  "PBF . 1 " ,P ( J , 4 J ,P | J , 5j ,P ( J , 6 } 

59:  wrt  "PBF . 2" , P | J ,1 ) ,P I J , 2 )  ,P ( J  ,  3  ]  ,  P  I J  ,'  ) ,P I J  ,8 ) 
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60:  wrt  "PBF .  3  '*  ,P  |  J  ,  9]  ,P  [  J  ,  10]  ,P  [  J  ,  11]  ,  P  [J  ,12  ]  ,  P  [  J  ,  13] 

61:  tfr  "PBF" ,6 ;r 3+l*r3; rl+l*rl;ret 
62:  "PRINTHEADER"  : 

63:  if  flg5;fmt  1 ,6 2x , "Tr ansmissome ter  Data  Input  Record" ,/; wrt  "PBF.l" 

64:  wrt  "PBF .  4" ,D  [  1] ,D  [  2]  ,D  [  3] 

65:  wrt  "PBF","  ",H$;wrt  "PBF" 

66:  wrt  "PBF . 5" ,T,U ,V ,P*r 14 
67:  if  not  flg5;tfr  "PBF",6;ret 
68:  wrt  "PBF. 6" 

69:  wrt  "PBF. 7" ,S$ [ 7 ] ,S$ [8 ] ,S$ [ 9] ,S$ f 10 ] , S$ f 11] ,S$ f 12] ,S$ f 13] 

70:  wrt  "PBF.8";wrt  "PBF . 9" ; tfr  "PBF",6;ret 
71:  "PRTSC ALE " : 

72:  fmt  1, f 3 . 1 ,44x ,f 3 . 1; wr t  "PBF. 1" , F , E; re t 
73:  "FORMAT": 

74:  fmt  2 , f 5 . 2 , 3x , f 5 . 2 , 4x , f 5 . 2 , 4x , f 5 . 1 , 3x , f 6 . 1 , 7x , z 
75:  fmt  3 , f 4 . 1 , 7x , f 4 . 0 ,4x ,f 7 . 2 , 5x ,f 6 . 2 , 6x , f 5 . 2  ,  z 
76:  fmt  4 , 7 5x , f z2 . 0 ," /" ,f z2. 0 ," /" , f z2. 0 

77:  fmt  5 , 49x , "Tape" , f 6. Trk",f6.,"  Vol",f6.,"  Every", f6.,"  Seconds",/ 

78 :  fmt  6 , 18 x , "Transmission" , 24x ," Time " ,1 lx , "Transmission" ,7x , z 

79:  fmt  7 , c8 , lx ,c8 ,lx ,c8 , 3x ,c8 , 3x ,c8 , 3x , c8 , 3x ,c8 

80:  fmt  8 , 52x , "Hr :Mn: Sc" ,2x ," HeNe (+) " ,2x,"YAG(X) " ,3x ,"C02 (0) " ,z 

81:  fmt  9,3x,"deg  C" , 7x , " mo" , lOx , " %" ,8x , "deg" , 8x , "kph" ,6x , " cm/hr " , 9x , "cm" 

82:  ret 
83:  "WRITE" : 

84:  moct; rds (1) +J ; if  bit(7 ,J) ; mdec;dsp  "PROTECTED  TAPE";ret 
85:  if  bit ( 5,J) ;mdec; ret 
86:  if  bit(2,J) ;maec; rew; ret 
87:  mdec;if  r4-r5=0;ret 

88:  " "*0$ ; if  X[r5moarl3+l] =2 ; W$ [ r 7modr 12+1 ] *0$ ; r7+l*r 7 ; jmp  7 

89:  if  R-0  and  U=0;idf  I, I, I; if  l#0;asp  "TAPE  NOT  EMPTY" ;gto  "abt" 

90:  fti  (0 ) &f ti  (V)&fts  (T)&fts  (V)&fts  (N)&fts  (D [1] *10000+D]2] *100+D[3] ) -0$ 

91:  fts  (rl4*P)*G$[21,24] ; 25*J 

92:  for  1  =  1  to  N  ;S$  [ I  ]  -0$  [  J  ,J  +7 ]  ;  J  +  8*J  ;  next  I 

93:  for  1=4  to  6;fts  (C [ 1 , I ] ) +0$ [ J ,J+3] ; J  +  4*J ; next  I 

94:  H$*0$  [  J  ,J  +  len  (H$)  ]  J 

95:  ref  R,0$;l+r 5+r5;l+R*R; if  R<rlO;fdf  R;ret 

96:  1-X [ ( r5-l*r5) moar 13+1] *Q ( r 0modr9+l ] ; 1+r O+rO 

97:  if  r0-rl>r9 ;asp  "Print  request  array  error" 

98:  if  U=l;dsp  "Ena  of  Tape" ;  l+T-*-T 
99:  l+V;abs(U-l)  ♦(!;  tr  k  U;0  +  R;if  U=0;rew;ret 
100:  if  U=l;fdf  0;ret 
101:  "SCAN": 

102:  60000*1; if  G=16; 66000*1 

103:  moct;wtb  9 ,170040 , 400C0 , 50000 , I ; mdec 

104:  gsb  "DRVTIME" 

105:  gsb  "READCOUNT" 

106:  if  A>=T[5];dsp  "Scan  timing  error ";gto  "abt" 

107:  for  1=1  to  200;gsb  "READCOUNT" 

108:  if  A#T[5];next  I;dsp  "Timeout" ;gto  "abt" 

109:  if  flg9;cll  'GTOD' 

110:  (A*T(4] ) +rl4*T [ 5 ] ; 1*K; moct 

111:  for  1=40000  to  60000  by  10000;3*A;if  1=60000  and  G=16;66000*I 

112:  for  J  =  1  to  6;wtb  9 , 170160 , 1+A; wtb  9,170260,30000,170240 

113:  wti  0,ll;wti  4,30000;rdi  4*B 

114:  wtb  9,170040,1; otdB*B ; if  B>2047; B-4096*B 

115:  B* .005*M(K] ; shf (A , -2) *A; 1+K*K 

116:  if  I<60000;next  J;next  I 

117:  mdec;ret 
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119:  max (2*M (4] -L [ 1] , 2*M ( 5} -LI  2] , 2*M I  6] -L 1 3 J ) -A 
120:  for  1=4  to  6 ; (M[ I ]-L[ I -3 ] )/G-M[I ] 

121:  if  G=16;jmp  3 

122:  if  A< .S12;16-G-B; 66000-1 ;gto  "CGAIN" 

123:  ret 

124:  if  A>9; .0625-B;l-G; 60000-1 ;gto  "CGAIN" 

125:  ret 

126:  "CGAIN" :moct;wtb  9 , 170160 , I; mdec; f or  1=1  to  3;L [ I ] *B-L [ I ] ; nex t  I/ret 
127:  "CALIM" :0-J 

128:  for  1=1  to  3 ; if  Mfl]>.56;jmp  2 

129:  1+J-J ; if  E [ I ] =0 ; 1-E [ I ] ; dsp  "Channel" , I , "Below  Threshold" 

130:  next  I; if  J=3;dsp  "All  channels  below  threshold" 

131:  ret 
132:  "AVERAGE": 

133:  360/C [1,10]-J;M[10] modJ-Mf 10 ] ; if  abs (M f 10 ] -A f 10 ] ) <=J/2; jmp  3 
134:  if  A[10]<M[10] ;A[10] +J-A[10] ;  jmp  2 
135:  M  [  1 0  ]  +  J  -  to  [  1 0  ] 

136:  for  1=1  to  N;  M[I] *F [1] +A [I ] *F [2] -A [I] ; next  I;  A [ 10J modJ-Af 10] ; ret 
137:  "STACK”: 

138:  if  CmodP#0;l+C-C;ret 

139:  if  r6-r7>=rl2;dsp  "Tape  Buffer  Error";gto  "abt" 

140:  r6moarl2+l-A 

141:  if  (Cmod (6*P) /P-pN) #0; jmp  2 

142:  fti  (l)&fti  (V) &f ts  (T [ 1] *3600+T [2 ] *60+T [ 3] ) -W$  f  A,1 ,8] 

143:  9+4*N*pN-B 

144:  for  1=1  to  6;fts  (A ( I ] ) -W$ [A ,B ,B+3 ] ; B+4-B ; nex  t  I 
145:  for  1=7  to  N;C [ 1 ,1 ] *A ( I ] +C [ 2 , 1 J -pi; next  I 
146:  for  1  =  7  to  N;fts  ( pi ) -W$ [A ,B ,B+3] ; B+4-B ; nex  t  I 
147:  if  Cmod (6*P) /P#5; jmp  4 
148:  l+r6-r6 

149:  if  r 4-r5>=rl3;dsp  "Tape  write  request  error" ;gto  "abt" 

150:  2-X]r4modrl3+l] ; l+r4-r4 

151:  1+C-C;if  not  (flg5  and  (C-l)modS=0) ;ret 

152:  if  r 3-r 2>=r8;dsp  "Print  array  error,  data  line  overwritten" 

153:  "CALTRANS": 

154:  ( (r 2+l-r2) -I)modr8+l-p0  a 

155:  for  1=1  to  3;if  E [I] =1; -1-P [p0 , I ] ; jmp  2 

156:  if  (C [1,1+3] *AfI+3] /A [I ] +P [ pO , I ] ) > 1; dsp  "Channel" , I ," needs  calibration" 

157:  T[ I ] -P  f  p0, 1+3] ; next  I 

158:  for  1=7  to  N;  pI-P  [pO,  I  ]  ,-next  I 

159:  if  rl-r0>=r9;dsp  "Print  Request  array  error" 

160:  2+G( ( (r 0+l-r0) -l)modr9+l] ;  ret 
161:  "FRUN" :cfg  ll;sfg  4;sfg  5;mdec 

162:  0-E[l]-E[2]-E[3]-E-F-G[l]-G[2]-G[3]-r0-rl-r2-r3-r4-r5-r6-r7; "+X0"-I$ 
163:  if  P<=0 ;gsb  "FINTERVAL" 

164:  if  P<=0;jmp  -1 

165:  0+C; 1- (exp (-P) +F [2 ] ) -F [ 1 ] ; if  not  (G=16  or  G=l) ;1-G 
166:  P-S 

167:  if  S*rl4<3;2S-S; jmp  0 

168:  if  not  flg8;dsp  "Tape  not  positioned";gto  "abt" 

169:  buf  "PBF";if  rds (6) #291;dsp  "Printer  Status  incorrect" ;gto  "abt" 

170:  sfg  10;avd;on  err  "rclear" 

171:  idf  I , I ,  I ;  if  l#0;dsp  "Tape  file  not  empty";gto  "abt" 

172:  gsb  "FORMAT" 

173:  wtb  16,13; 1-Q[ rOmodr 9+1 ];l+r0-r0;wtb  6 ,27 , 72 ,0 ,1 0;gsb  "PRINT" 

174:  for  1=1  to  r 12; ""-W$ [ I ] ; next  I 

175:  (rl0-R+rl0*abs(l-U) ) *6*P*r 14-T [5] ; gsb  "DRVTIME" 

176:  fmt  l,"Tape  run  time=" ,f z2. 0,"  Hours" , fz2 . 0 ,"  Minutes", fz2.0,"  Seconds" 
177:  wrt  .1,T[1] ,T(2] ,T(3] 

178:  l-X[r4modrl3+l] ;l+r4-r4;gsb  "WRITE" 
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>  J  179:  gsb  "READCOUNT" 

!  '  180:  (A+T(4  j )  +  rl4-*T[5]  ;gsb  "SCAN" 

181:  for  1=1  to  3; M( 1  +  3] ♦L [ I ]  ;  next  I 

182:  for  1  =  1  to  N; Mf I ] +A f I ] ;  next  I ; A f 10 ] mod ( 36  0/C[  1 ,1 0] ) ♦A f 10} 
183:  gsb  "CALIM" 

184:  gsb  "GAIN" 

185:  "Main  Loop": 


186: 

gsb 

"PRINT" 

187: 

gsb 

"WRITE" 

1  } 

188: 

gsb 

"SCAN" 

i 

189: 

gsb 

"GAIN" 

j  | 

190: 

gsb 

"CALIM" 

■  i 

191: 

gsb 

"AVERAGE " 

192: 

ell 

'stack' 

l*  ’ 

193: 

if 

not  fig 11; gto 

194:  Cmod6P/P-»-A;  r  6modr  12+1+B 

195:  9+4NA*A;fts  ( -12345 ) -W$ f B , A, A+3 ] 

196:  2-*-Xfr4modrl3+l]  ;  1+r  4  +  r4 ;  l+r^rO 
197:  if  r0-rl>0;gsb  "PRINT" 

198:  if  r4-r 5>0;gsb  "WRITE" 

199:  if  r0-rl>0  or  r4-r5>0;jmp  -2 

200:  fmt  1, "TERMINATED  at  " , f 2 2. 0, " :" , f z2 . 0 , " : " , f z2 . 0 
201:  if  rds  ("PBF" ) <0; jmp  0 

202:  wrt  6 . 1 ,Tf 1] f T [ 2] , T [ 3] ; wtb  6 ,10 , 1 0 , 1 0 ; wr t  . 1 ,T[ 1] ,Tf 2] ,T [ 3] 
203:  “ abt" :V+l*V;cfg  10;ave;mdec;on  err  "halt" 

204:  1/0-A 
205:  "halt":stp 

206:  "rclear"  :dsp  "Error  " ,char <r om) , ern , "on  line" ,er 1; gto  "abt" 
207:  "FT APE" : 

208:  if  flgl0;gto  "nono" 

209:  if  rds  (1) >127 ;dsp  "TAPE  WRITE  LOCKED!" ;ret 

210:  cfg  8;trk  0;fdf  Ojidf  T,U,I,T 

211:  if  T#r  1 1 ;  jmp  3  12 

212:  if  1=0; 0+R+U; 1+V;ent  "Tape  No.=  ",T;gto  "FTdone" 

213:  if  I=rll;jmp  2 

214:  dsp  "Not  a  data  tape.., TAPE  aborted" ;ret 
215:  ldf  0,O$;fxd  0 
216:  stf (0$ [ 5 , 8 ] )-T 

217:  dsp  "Tape  ",T,"#OK?  (Q=no , l=yes ) " ; ent  "",R 
218:  if  R=0;dsp  "Tape  ",T,"  re jected . " ; ret 
219:  trk  l;fdf  0;idf  I,I,I;if  l=0;trk  0 
220:  for  R=0  to  rl0-l;fdf  K; idf  I,I,I,V,U 
221:  if  l#0;next  R 

222:  if  R>=rl0-2  and  U=l;dsp  "Tape  full... TAPE  aborted";ret 
223:  if  R>=rl0-2  and  U=0;trk  l;jmp  -3 
224:  if  R=0;l*V;gto  "FTdone" 

225:  ldf  R-1,0? 

226:  i tf (0$ 1 3, 4 ) ) ♦V?V+1*V ;f df  R 

227:  "FTdone":sfg  8;dsp  "Tape" ,T,"Vol" ,V, "Track" ,U; ret 
228:  "FINTERVAL" : 

229:  gsb  "nono" 

230:  dsp  "No.  of  scans  to  average  ?";ent  "",P;if  P<=0;jmp  0 
231:  ret 


L 
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232:  "FHEADER": 

233:  gsb  "nono" 

234:  dsp  "Current  HEADER  :" ;wait  1500;dsp  G$ 

235:  ent  " "  ,G$ ; len (G$)  -I 

236:  int{ (132-1) /2) +J; "  "+H$ f 1 , 132 ) ; G§ [ 1, I ] -H$ [ J ,J+I] ; ret 
237:  "ATEST" :fxd  3;gsb  "READCOUNT" 

238:  (A+T(4  J ) +2-*-Tf  5] ;  prt  "Channel  Volts"; gsb  "SCAN" 

239:  for  1=1  to  N;prt  S$fI],MfI] 

240:  next  I;wrt  16;wrt  16;wrt  16;ret 

241:  "FMARK"  :gsb  "nono" ; 2*A; gto  "OTHERFILE" 

242:  "FCAL" :gsb  "nono" ; 3+A;gto  "OTHERFILE" 

243:  "FREPLOT" :gsb  "nono" ; 4+A; g to  “OTHERFILE" 

244:  "FDLIST" : gsb  " nono" ; 5 ♦A; g to  "OTHERFILE" 

245:  "FSTOD" :gsb  "nono" ; 6 +A; g to  "OTHERFILE" 

246:  "nono": if  flgl0;asp  "Not  while  RONing" ;stp 
247:  ret 

248:  "OTHERFILE": 

249:  dsp  "Load  software  tape  and  CONTINUE" ; stp 

250:  ldf  0,0, A 

*10545 
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APPENDIX  E 


ADDITIONAL  MANUALS  SUPPLIED  WITH  SYSTEM 
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HP  9825A  Calculator: 


Operating  and  Programming 
Quick  Reference  Guide 
General  I/O  Programming 
String  Variable  Programming 
Advanced  Programming 
Extended  I/O  Programming 


09825-90000 

09825-90011 

09825-90024 

09825-90020 

09825-90021 

09825-90025 


HP  Printer: 

98032A  Option  071  Interface 

Printer  Operating  Note  09825-90045 

HP  Multiprogrammer: 

6940B  Multiprogrammer  Users  Guide  59500-90005 

Multiprogrammer  Model  6940B  06940-90005 


HP  Cards  for  Multiprogrammer: 

Relay  Output/Read  Back  Model  69433A  69433-90001 
Voltage  Regulator  Card  Model  69351B  69351-90002 
Voltage  Monitor  Card  Model  69421A  69421-90001 
Frequency  Reference  Model  69601B  5950  -1776 

Pulse  Counter  Card  Model  69435A  69435-90001 

o 

Lasers : 

Instruction  Manual  CC>2  Laser  Model  941,  GTE  Sylvania  Co. 

TM 

Instruction  Manual  for  Series  TWO- 10  YAG-TWO  Lasers 
(Serial  162  and  Above)  General  Photonics  Inc. 

Operating  and  Maintenance  Manual  Hughes  Helion  Neon 
Laser  Systems,  Hughes  Aircraft  Co. 
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Meteorology : 

Instruction  Manual  for  Climet  Instruments  CI-60 
Climet  Inst.  Co. 

Instruction  Opera!  »nd  Maintenance  Rate  of  Rainfall 
Transmitter  Cat  #6069A  Book  #15615B.  BEDFORD  INST.  CO. 

Tipping  Bucket  Raingauge  Model  302  &  303  IM-78B  76  June 
ISSUE  Meteorology  Research  Inc. 
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TAPE  FILE  FORMATES  FOR  DATA  ACCUMULATION 
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The  cassette  tape  has  two  tracks,  track  0  and  track  1.  Each 
track  can  be  subdivided  into  files,  numbered  sequentially  fromA 
and  having  different  capacities  of  bytes.  The  Transmissometer 
data  accumulation  program  requires  a  specific  number  of  bytes 
per  file  labeled  prior  to  the  data  taking  (See  program  ' FMARK ' : 
This  makes  rlO{=290)  files  of  rll (=320)  bytes  per  track). 

The  data  accumulation  program  writes  two  kinds  of  files; 
a  header  file,  which  stores  various  information  about  the  test 
data  and  a  data  file,  which  stores  the  data. 

The  Header  file  has  the  following  format: 


File  Type  =  0 
Volumn  # 

Tape  # 

Volumn  # 

Number 

of  channels  (N) 

Date  MMDDYY 

Reporting 

Period 

Channel  Names 
Channel  1 


Bytes 


Channel  N 

LASER  Channel 
Calibration 
•  Constants 
Channel  1 
■  2 
Channel  3 

HEADER  TEXT 


<132 


For  N=13 


<272  BYTES 
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The  data  file  has  the  following  format: 


File  Type  =  1 

Volumn  # 

Time  of 
Record  1 

HHMMSS 

Data 

Channel  1 
Record  1  1 

Channel  N 

Channel  1 
Record  6  l 

Channel  N 
For  N=13 

A  volumn  consists  of  a  header  text  and  a  set  of  data  files. 

The  first  volume  of  a  data  tape  on  either  track  is  always 
1.  A  data  collection  that  uses  up  all  the  files  on  track  0, 
automatically  rewinds,  and  writes  a  header  file  with  Volumn  #1 
track  1,  file  0  and  continues  data  collection.  Upon  completion 
of  Track  1,  the  program  requires  a  new  tape.  If  the  tape 
is  provided,  the  program  automatically  writes  a  header  text, 
with  volumn  =  1,  on  track  0  file  0  and  continues  data  collection. 
No  data  is  lost  in  either  case. 

The  volumn  #  is  incremented  if  the  operator  terminates  the 
run  with  special  function  key  program  FTERMINATE  or  if  a  fatal 
error  is  discovered  while  running.  A  new  data  collection  ('FRUN') 
will  then  start  a  new  volumn  of  data  with  the  Header  File. 


2  BYTES 
2 

4 

4 

I  ■ 

4 

4 

320  BYTES 


